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TO MAKE ANY UF THE ABOVE CHANGES, LOAD AND HALT THE _PROGKAM BEFOR 
ECUTIUN, INSEKT CHANGE THEN EXECU UTte yey PUCAT ION? OF w2VSTTY® 
"ZV$bUU" MAY be FOUND IN MAP AT END OF LISTIN 

CONSULT LEVEL 6 T&V MANUAL "AW94 FOK betas? ON HOW TU LOAD THE TES 


THE FULLUWING IS A TYPICAL RESULT OF LOADING THE pROGRAM 
AND STARTING TO RUNe 


hTUXAZ REV Ao GeTK PE/NRZI MAG TAPE TEST, DD MMM YY 
LVoulb KEVe XKeX 
eyonrr x 


tX= 
AND 
" TSe 
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HSEZHCCSO 
TOC =sCuyit 
mOTPIi rrAR< 


Ge OCYHHC 


MEMURY 
MEMURY 


CCCCcCCco;eece 


COC Hf ere 
Ceeoeocece 
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THe FIRST EXECUTLON OF THE PROGRAM WILL ASK THE QuESTION: 
POWLK FREWs He 7: 60 C/R (ON A 6/30 SYSTEM ONLY) 
] neat dette IN HERTZ 


RESPOND wITH THE POWER LINE F 9 
USUALLY 0 IW THE UNITED STATES AND 90 ELSEWHERE, THe 
PROGKAM wILL THEN CALISRATE THE Cpu CLOCK AGAINST THE 
ReAvceTI Mt=CLUCKe DEFAULT VALUE 15 60 HLe WIliH A 6/409 
THIS wl oT 1Onmw wILlL NOT BE ASKED. 

THe PRGoKAM wILlL THEN ASK; 


CHANNEL ts ee C/R 
VRIvE '! R21 
VRIVE wy 2 PE 

bRIvE "3" ITS OFF see 
oDCA FIKMWARE REV 


CeSCCCCcCoOCoOcCcCccCcocececeececocecpe COCCOCCOCTCOCOCCOCO CS 
CCC CCCoCoCcCeoCoCcCeococececeoceocceccoe cc oeoceeoeo cco ecceoecn 


COCCOCCOCCCOCOCOCCOCCCCOCCoCcococooceecocecaececoeocceace 
Cc 
RA RA NAR RR RRRA AR RARE RRP AR fn RGROR RORCK AK ROR ROR R RCORCROROPRCROR, ROR em Re Re me eee Ree ee Re eR ee ee ee ee ee 


A DeVICk wHIGH DUES NUT KESPUND WILL BE OMIITED FROM THE ABOVE 
UUO REPURT (ibe URIVE "2") 6 
UOU THe RESPUNSE SHOULD bE THE FOUR DIGIT HEX CHANNEL NUMBER ASSIGNED 
OOU 1O ANY LEVICe IN THE SYBSYSTEMs THE PROGRAM WILL USE 
UUG THE CONTROLLER PORTION OF THE CHANNEL NUMBER TO RDDRESS 
OOU ALL DeViCESe DEFAULT VALUE IS HEX 14000 "NKaI"» wpeEn OR "OFF LINE" 
aoe IWUICATAUNS SHOULD BE VERIFIED BY THe OPERATOR« 
U 
O00 WHEINN CHANGING ONE OR MORE DRIVES FRUM NRZI 10 Pee. OR VICEH 
OU VERSAy MUDE "I" (SEE BELOW) MUST BE RE@RUN. THE RESPONSE 
pee TO "CHANNEL @3" MAY THEN BE A "C/R", 
U00 THE AbOve SEWUENCE with ONLY OCCUR UN THE FiRST START AFTER 
GUO A FRESH LOAD OF THE PRUGKAM, SUBSEGUENT KESTARTS wILlL PICK UP 
goo, Ga AT THE WheSTLON "NEXT 27" WHICH ITS EXPLAINED BELOW, 
{ | THe PRUGKAM wILL THEN RESPUND WITH THE FULLUWING: 
. MO ml M2 M3 NEXT 23 MXoMYoMLeeeC/R 
WHEKE; MO ml M2 M3 AKE THe MODES CURRENTLY SELECTED FOK 
TESTING GON UNITS O¢ le 2 AND 3 RESPECTIVELY. 


(SEL "MODES" pbeELOWe) 


MXe MYe earn tae AKe THE MUDES whiCH THE OPERATOR WISHES 
TO RUN ON UNIT] Xo Yo LeoeklCeo 


HK KK KKH III KEK KIRK IKKE KKH KHER HHI HITHER IT IORI ITT III III III 
MOLES; 
THi PKOGKAM MAY UPERATE IN ANY ONE OF THE FULLOWING MODES; 


PBWWWWW WWW RR ROR ROR ROD Nie ee ee rere re te CCC OC COC OO OC OOCL OC CoOSCOCE MOOSE AANA ANA NNSA OOO: 
eK CUCANCUPURE COONOU FUR HK COONOU FUN E COON CUFSOUR SE CLOONCOU FLOUR COON SURRY CHO NOU LURE COG N 


Ocoee cececa¢cecececcecec]e 
CeoCcecececeecececcececcececece 


COCCOCCOCCCOoCCCccocecce 
KOK OK KK ko ok ok xk 2k ok ok kok ok ok fe ok ok ok ok ok ok ok ake ok ok ke ok ok ok oie ok ak ake ok i ok ok ok ok Ok ok 2k 2k ok 0k ok OK ok ok ok ok ok ok OK 2K ok OK ok ok ok ok ok oR ok ok ok ok ok ok Ko Ok Ko OE Kk Kk OK ke Ki ok ok ok ok ok ok ok ok ok ok OK OK OK KOK OK OK 


t - REPORT ERRORS AS THEY OCCUR 
Fo- ENTEK NEW FILE LIMIT] ae 
1 - ID TEST, RECONFIGURE CHANNEL ADDRESSES 
Ge P = PRIN] SUMMARY GF FIRST TEN ERRORS | 
243 S = CAWCEL ALL ENTRIES, RESTART AT *1U0%, ENABLE EKKORS, 
“44 X = SUPPRESS ERKOK KEPORTS 
Dake ne <2 - GLT TEST MODE 
é4O 
O00E47 THE ApUvVE ARt NOT SPECIFIC TO ANY UNIT AND AS SUCH THEY LO 
£48 t N t ® 
U00d4 NOT APFLAK IN THe "MO Mi M2 M3" MESSAGE PREGEDING "NEXT 25". 
Gogcee re 4 : . - n° ew ee 
£50 
00051 AN - AUTOMATIC TEST MODEs UNIT "N" 
UU025é UN = DEDnUG MODEs UNIT "AN 
uul¢e53 GN = GUiCK VERSION OF "AN" 
OUUd54 RN = READ AND CHECK PkE= BE COREE VAFEs UNIT «ne 
QU0<55 WN = WRITESONLY Full TAPE 
eunsoe @-N = DELETE UNIT "NW FROM EST PROCEDUKE LIst 
UUUE 
G00¢58 THESE MuvVES REFER TO A PARTICULAR UNIT» F 3% AS DESCRIBED 
00059 UNLeK "GPEKATION" ABOVE, FOLLOWING "NEXT 23% sMOve wD" TS 
000260 EXCLUSIVE TO UNIT "N" AND NO OTHER UNITS C an 
OUUcol SELECTEL SIMULTANEOUSLY. WHEN RETURNING TO NNERT as FROM 
VOUco¢ MUbE "BD", "Din" WILL NOT APPEAK IN THE REPORT OF THE SELECTED 
00U<63 MULES. 
OuoLe> 
26 
QU0¢Z 66 MODES "AN "OQ" HR AND UW" Akt COMPATIBLE WITH EACH OTHER 
V00Z67 AND MAY Ge RUN CUNCURRENTLY*e IN THIS EVENTs A SUB-TEST WILL 
UGUcbs KUN ON Uiv—E UnIT. WHEN COMPLETED, THE PROGRAM WILL DETERMINE 
GOUZ bY IF THE NeaT UNIT HAS BEEN SELECTED FOR TESTAINGe IF JIT HAS» 
VOUZTU THE NEAT SUB=1t51 SCHEQULED FOR THAT UNIT Will BE RUNe 
000z71 (Set SUb=-TESIS_ LISTED UNDER "MODE Ay USE", vELOW,) 
VO0<dT« ADDITIONAL UNITS MAY BE SELECTED, CHANGED Un DE-SFLECTED 
| UOU<T3 AT ANY TIME wiTHOUT AFFECTING THE OVERALL SCHEDULING OF 
me Q002 74 THE URIGINAL TESTe (SEC EXCEPTION IN FOLLOWING PARAGRAPH.) 
meat 
“ 
avo” GOOQ0eETT A TEST SEQUENCE MAY BE INTERRUPTED 10 ALTER OR DELETE UNE 
UOUcT& OF THE SELECTED MODES QR ADD A NEw MODE BY STRIKING ThE CON- 
OU0ET9 SGLe bRKEAK KtEYe INTERXUPTING AN "AZ" FORK EXAMPLE, AND RE 
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HOWEVERs SINCE THIS DEFIES THE ANSI STANDARD» ERRORS 
WILL Be KEPOXTED.) 
Db = DATA PATTERN (O-FF HEXs DEFAULT = FF) 
THE TWO PAkKAmETERS AKE SEPAKATED_ bY A_COMMAs IF NO VALUES ARE 
ENTERED weEFOKE EITHER YELIMITER THAT PARAMETER wILL REMAIN ~ 
UNCHANGLU FRUM THe LAST TIME IT WAS ENTERED. A RESPONSE OF ONLY 
A CARRIAGE RETURN wILL LEAVE bOTH PARKAMETEKDS UNCHANGED THE DATA 
PATTEKN DYTE WILL bE REPEATED THROUGHOUT THe ENTIRE RECORD 
LENGTH ONLY whtN LINK *F* (Ste BELOW) 25 EXtCuTep, 
A “pREAK" WILL CAUSE A RETUKN TO "NEXT 75%, 
liv ANY CASE» A CARKTAGE RETURN WILL CAUSE THE FOLLOWING: 
LINKS 93 AXXXeeed/K 
THE KESPUNSE TO THIS REQUEST FOR SUbROUTINE LINKS SHOULD CONSIST 
UF a COMBINATION GF UP TO TWENTY (20) OF THe LINKS DESCRIBED 
bELUW AND INDICATED BY "X*S" ABOVEe FHE STRING MUST BE |. 
TERMINATED BY A C/Re Ty RETURN FROM "LINKS" TO "RANGEs DATA", TYPE 
"He C/K, TO ABORT AND RETURN TO PNEX EY 9 TYPG "BREAK. AT THIS POINT, 
ALL PREVIUUSLY SELECTED "MODES" AND RETURN POINTERS WILL BE CLEARED. 
TO RE*EAECUTE A STRING OF LINKS PREVIOUSLY CNTERED, THE KESPONSE TO 
"LINKS 73" SHOULL BE A CARKIAGE*RETURNe | 
A STRING UF CINKS TERMINATED BY A C/K WITHOUT AN oH OR OX" WILL 
CUNTINULUSLY LOOP ON THAT STKINGe 


THE PROQRKAM#'S KESPUNSE TO LINKS "A" UR "5B" wILh THE 
FULLUWING FORMAT: " HAVE 


AKKXee = DD LOD DD bb vb DD bb DD DL DL LD ub bv pb DL bb 


WHERE S 
XXX 
DL 


Hou 
CTU 
ro 


DATA wYTE IN LINE (0=7FO HEX) 


Tite KESPONSE [O LINK "P® IS AS FOLLOWS; 
PARMDSs$ uU LLL DU WawWw RKRRR 


WHERE S 
GU = UNIT NUMBER (0-3) | 
LLL = RECURU LENGTH (L- 800 BYTES» HEX) 
DL = DATA PATTERN (O-FF) 
wWwh = WRITE BUFFER LOCATION 
RRKK = REAL BUFFER LOCATION 


THE KESPONSE TO LINK "2" (PRINT STATUSs ETC.) 15 AS FOLLOUWS; 


QTATS U VVVV WWwWw XXAX YYYY £42224 

WHERE: 
Ub = UNIT (REX) 

VVVV = FILE (HEX) 

wwww = RECORD (HEX) 

XKAXX = KANGE REMAINING FROM CURRENT OPERATION (HEX) 

YYYY = FInST STATUS wORD 

£44Z = SECOND STATUS WORD 
ohUULLY THE EWUROFeTAKE MARKER GE DETECTED LEATHER UPON. 
ENTERING UR wHILE GPERATION IN THE DEBUG MOVE THE MESSAGE 
"ERmG=T" wILlL ok REPUKTEDe THE PROGRAM WILL |HEN HALT AND_ | 
WAIT FOR THE UPEKATOR 10 HIT "EXECUTE"e THIS wIL, CaAUst THE 
PROGKAM TO CUNTINUE UPERATIUN, BUT ALLOWS THE OPERATOR TO 
TAKE APPRUPRIATE MEASURES IF NECESSAKYe 
SHOULD LINK "U" DETECT ERRONEVUUS DATA THE RePORT wILl FOLLOW THE 
FORMAT LISTED UNDER "EXKRORK REPORTS", 
LINKS "EF" "G" AND §I" will FILL THE WRITE BoFFER wITH PRECISELY 
THE NUMBEK OF BYTES CALLED FOR IN THt "LENGIH" (RANGE) 
PAKAMETERe THE REMAINDER OF THE BUFFER WILL STAY UNCHANGEL, 
SelLecTInG LIWKS "J" OK "K" wlll (CIF MORE THAN 8K MEMOKY IS 
AVAILABLE) SteT ASTDE A DUFFER RANDOMLY LOCAIED ABOVE ZVSLKe 
ONLY OGNt KANUUM 6UFFER IS ALLOWED AT A TIMEe THEREFORE ChOOSING 
A "J" FuLLGWeb BY A "K"™ WILL NEGATE THE EFFECTS OF THE "JU"e 
LINK "GU" MAKES IT POSSibLE 10 CHECK A PREVIVUSLY RECORDED TAPE 
BY FIRST KEAYVING THE DATA, TRANSFERRING THE DATA TO THE WRITE. 
BUFFER Aiwy THEN KE=KEADING AND COMPARING The "WRITE" AND “REAL 
BUFFEKS. FGR EXAMPLES 


LINKS 73 RUTRUN C/R 

FH HHI HHI KI KIKI HHH HIKER HHI IK IKK KKH KIRK KKH KEI KEKE KEKE KKK KKK 
* MODE "Eh", USE 

ENTERING NUDE ae SERVES TO ENABLE Eee REPORTING 
CANCELLING ThE EFFECTS UF MODE "X", THE EaTION NE 
IS THEN KEPEATED IMMEDIATELY. “"E" 1s THE” DEPAULT MOD 
THE PROGKAM 15S FRESHLY LOADED. 


HH KK KIKI IKI KIKI IKI KH IH HH KIKI IH HIT KR II III I ITT HH KEK 
MOLE "F"_ Got 
REQUESTING MUDE "FY" CASES THE FOLLOWING PRINTOUT; 


NOW FFFF HEX FILE(S) eee 23 NNNN C/R 


Dh oie oO OK ok ok ok Kk ok ok kK ok OK OK OK OK OK OK KK ok oe ok ok ok OK ok ok ok ok ok ok OK OK ok ke ok ook 2K OK OK ok ok ok OK oF OK OF OK 2K OK OK OK OK ok kK ok ok OK OK OK KK Oo FOO OK 9K KOK ok OK OK ok KK Ok Ok 


THUS 
XT ? 
E WH 


WHERE § | 
FRR = CUKRENT NUMBER OF FILES TO be USty IN 
MOVES Ay Gs % AND W (HEX). 
NNANN & DESTRED NUMBER OF FILES (HEX) .e 
NOTE: ZERU FILES WILL 5E INTERPRETTED AS MEANING A REWLEST TO 
GO TU END UF TAPE (E=-G=T)» AND THE REPORT wILL SAY: 


b-U-] HEX FILE(S) eee 7: 
KKH KK KIKI KERIKERI III IIT TOT TTT TREE TTI TH 


2 OK OK FR OK KK Ok ok ok ok ok OOK ok KK OK Ok oe Ok 
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&£ PROGRAM 15 
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2k OK ak oF 
PS ire 


HHKKKKKAHHHAEK KKK KKKEKRKHKEREKE 
* MODE "P", USE 
MODE *P* WILL PRINT 
TEN ERRUR REPORTS R 


A CLEAN MODE. (EG 
THE MODE TABLE. 


SOE Oe ee nae henna EAA ARAMARENENS NAAR RAR EESS 
* MODE "UN", USE 
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* HUUICK" helt WILL OPERATE IVENTICALLY 1O MOVE "Aw and ERRORS 
* WILL BE REPORTED AME REPORTING LAGELSe HONEVER » 
* INSTEAD UF TESTING FOR WN” DATA FILES, ONLY 16 bec IMAL (10 HtXx) 
* DATA FILES WILL bE GENEKATED AFTER CUMPLETING THE PRELIMINARY 
* TESTS "TI" THKOUGH "SI", THE PROGKAM wiLL TREN REPORT "ENU-Ot-~ 
: PASS" ANU RESTART WITH TEST "AA". 
HHH KKK HEHE KKK KKK IKK KEKE IRI KKK IRI K HICK KH EHH IKI KEK KEKE KH KKH KHER HK KKK HEHEHE 
* MODE "kK", USE 
* THE "KEAU@ONLY" MODE 1S INTENDED uy A opel ee THE GREATEST 
* LIKELYHUGD OF SUCCESSFULLY READIN PRE@=REQVOKDED TAPE ANU 
* AS SUCH 1T WiLL UPERATC WITHOUT BOING ANY WRITE OR ANRECE SSARY 
% rata re VPERATIONS. IT WILL READ A_ TAPE PREVIOUSLY RECORDED 
* IN ELTHER VES "AM, "St OR Mw" (SEE BELOW) UNTIL AN "END-OF-PASS 
% RECOKD 1S DETECTED WHEREUPON IT WILL REWIND AND START OVER. 
* THE "REAU-ONLY" MGDE PERFORMS AND REPORTS IWVENTICALLY 
* TO MUVE "A" wITH THE EXCEPTION THAT NO WRITE OPERATIONS 
mt TAKe PLACE. AiwD THAT A PASS IS CONSIOERED TO BE COMPLETE 
: WHEN AN "END@<OF=PASS" XECORD IS DETECTED ON TAPE, 
JU HH KKK HK KKK KHER KERR KK HK KKK KK HRI KHAKI KEK IK RIKKI KKH KKK HEHE KEKE KKK 
QV00G4e * MODE "S"_ USE 
U00943 % THE wSToOpe MULE wILL HAVE THE EFFECT OF Fd ie UNITS 
BU CLE . Oe3 ANU THEN ASKING THE QUESTION # NEXT 273", 
UVUUYS 
UVU0946 AGHA KNEE GR AWN EAE ERK E ESSERE REO LEMS REA WNL ORK 
GVUU0947 * MODE "Ww", USE 
VOU94SE * THE WRITES ONLY" MODE PERFORMS AND_REPORTS {DENTICALLY 
UGU949 * TO MULDE "A" wiITH THE EXCEPTION THAT NO READING OR DATA 
OU095U * CHECKING GPEKATIONS TACE PLACE. "END@OF=PaS5" 15 
UUUG5] * GENERATCU WHEN EITHER "N" FILES HAVE BEEN apa a OR Se — 
VUU95~¢ * WHEN "-ENumOF=TAPE" HAS bEEN DETECTEDe FOLLUwING “END-OF-PASS" ae” 
O0U0953 * THE PROGRAM wiLL TPES SELECT» THAT ORIVE BUT CONTINUE TESTING I 
000954 % ANY UTHER UNiTSe IF NO OTHER UNITS ARE SELEQTEDs THE "BREAK® KEY eee 
SUCLee : MUST Be Nit 10 RETURN TO "NEXT", a 
956 
O0U9S5 7 TORR III IO ITO I ITO IIE 
G0L95% * MODE "X"_ USE 
OGUY5Y % SELECT 1 UN OF MUDE "x" ba orp FUTURE ERROK REPORTS UNTIL 
UUOG6YU * ENADLEU GY MUDE "EW, JHE FIRST TEN ERROR REPORTS, | 
OU0G6] * ANYs wILk CONTINUE TO BE ENTEKED INTO THE ERROR HISTORY bUFe 
pouees % EK e 
UUY6. * 
U0UY64 ne ee nee nee en crn ee 
000965 * MOLE "Cis 
UVOY66 SELECTINGS MOVE "Z" CAUSES THE GLT TEST TO be RUN CONTINUOUSLY» ThE 
OOUY96T KESULTS OF Tht OLT wILit BE PE ree AND ANY ANOMALIES WILL BE 
VOOCYbb * KEPORT EUS HIITING THE "BREAK® KEY WILL RETURN TO OM ANTE AFTER THE 
OUUG6Y % CURKENT UWLT HAS COMPLETED, AS MUCH ADS 15 SECONDS, 
BOogat : DUKING THe RUNNING OF MODE "Z" THE MESSAGE eee 
JOUY 
BOCe re . wlLT FASS PP (WHEKE PP [TS THE VECTMAL PASS COUNT) 
Uy73 ed | 
a : WILL bE REPOKTED AFTER EACH TEN DECIMAL PASSES OF THE ULTe 
jU0YTS 
aoe * BEFORE KUNNING ANY SUBSEQUENT TESTS,» MODE "3" SHOULD bE KUN, 
U00Y | % 
OOOY9TS RHR AHR AK HR H IRR HHH RR RR IR ERIK RRR RII TTR ITER ITO TI IAI 
UOO¥TY * MODE "=, USE 
Gheney : THiS mODE wILkL DELETE A SINGLE DRIVE FROM THE TEST LISI. 
000982 KKK KKK IKK KIKI KER KEK KI KK HEHE HHRHKEHHKHKKHKHKHKKHHE 
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QUV115q Ucl3 UF&S b >PRMSG CONTINUE 
QVU11L57 _ ree: 
001158 * FIRMWARE IS "BDC3" 
VO1159 x . , 
OULL6U GZ14 G&TO 4333 bUC3 LUK SK1s=A'C3# Oo e ouean 
001161 Gelo 9FOU 2248 OTR SR1le<MSFIRM+1 SET "BUC3" MESSAGE 
VO116e C218 38900 20E9 Lot <bDOCFLGe=] SET "BUCS" FLAG 
OclA UG0] 
001163 * | = ; ; 
bores . NOW GET FIRKMwARe REVISION NUMbEK 
5 
O01166 ae PRMSG) CALL LVS) eLZVSTCoMSFIRM PRINT "BUC= FIRMWARE REV" 
Gzglo FeCO v003 
U2ZlbD D360 VOOO K 
Uclk UFO 
| G22e0 2247 es | ; 
OOLL67 - i 7 CALL ZVSTHeFIRM PRINT THE FIKmWARE REY NUMBER 
Ugé21 FbCO 0003 
O2¢3 0380 0000 X 
Uc2d UFBU 
| Veco ¢180 et ek , = 
OO1168 Ge27T v380 163b LING $659<QLTKUN RUN QLT AND CrECK RESULTS 
O0116y9 FOI II ROU IIIT III IIIT 
eet : SELECT DRIVES ANU TESTS To BE PERFORMED 
ee Odcy U38U 1634 REST RI LNJ $65 9<CLRMOD CLEAR 10 MODES -O -] -2 3 
GU11L74 Uéco 980 2311 LAb SKle<TSAL FIRST IRAP SAVE AREA 
OOLL7S eed YF6U 0000 x STB eb 1s < HNTSA 
OOlL70 Udder 9680 0366 LA’ $61 STAKT OF SEGUcNCER . 
OO1177 G23l GF&U 1G2F ST 3b1}<SENSHS RETURN ADORE D> FOR "SENSE" FIRST TIME 
UU1I7uH L235 8700 2lle CL <EOTFLG END@OF=TAPE FLAG 
viene Og35 %s70G Z0E7 ‘ CL <AUFL TEST AU OPERAI LON FLAG 
L - — eOeFeOlePOlelUPlUDl lll ate Ee a ed 
earns : REPORT CURRENT MODES AND ASK "NEXT 2:3" 
U < 
GOOli83 Gesi Ud0d NEXT KTCF ; STOP THE CLOCK 
001184 C238 1C05 Loy Skle=d 
UU1185 U¢39 YFUU OULU x OTR SKIL s<ZHRTCL SET RTC TO LVL 5 
UU1186 Cesb L380 lode Lind $B5 o<CRLF DO A LCINE=FEEY 
U01187 O23 2CFC | Luv ge s=—4 
UULL86 Ue3tk 9820 2106 NEXTA LOK SKL9<DXMD+4e3R2 > See ; : 
GOLL8G Ge4U L360 UFCB LIN b59<VDTK PRINT ¢ ASCII CHARS FROM R1 (MOVE) 
OOLL9U Uc4e 9870 2024 LDR SRle=t ge | ; 
VOlL9L UeZ44 L350 VEC LJ $B59<VUTK PRINT (2 tNGLE >PACE 
GO119<. O240 2780 U23E bINC  gk29<NEXTA GO bACK FOR MURE 
VO1193 we a oe —s CALL 2VET eZVSUsMSNEXT (PRINT QUESTIUN NEXT ?3) 
Ge4s FBCO 0003 
G2Z4A v380 0000 X 
Gc4e OF KO 
Be Uc4b 226¢ _— set 
G01194 Gdé4k 8700 219F CL suier eG FLAG FOR ZEkKO RANGE IN DEBUG 
GOL195 O¢5U0 6700 2181 7 oe <FLA BIT 14=CR DETECTED, BIT TSSURTVE™ “MOVIE IED 
001196 _ aan NEXTC CALL SVSiAS ZVOTATsTEMPAZUC8 (GET ASCII mODE) 
Gzg5¢ Fucu vGd3 
a Ug54 DbD380 O00 x 
| U2Z5o0 UVFBO 
| L257 =é1C0 
7 Ve5u 21b7 
| ee G2599 20F1l | ao 
UVULI97T UdbdA 98BLO 21CU Luk SKLo<ZVSTAT GET STATUS 
OOLI9s Geé5C 6394 V2Z5E oe JM <NEATBeSR1 
QOUL199 O25t OFTF NEXTB WNUF >So] STATUS ERROR 
OULZOU UcdSrF OFTF NGP >$nh BREAK 
UG1<01 GUzoUu OFDT i >NEAT RUBOUT 
UG1E0e Udell OFB85 bo >NEXTE COMMA 
VU1E03 Udgbe UFTF NUP >$~1 C/R 
VO1<04 * | | az | 
GULEUDd ores ace 2181 Lol <FLAGs=Z'000¢2° SET FLAG» CR VETECTED 
i20 2 
OULc0o Ogo9 c¢CO0l NEXTE LUV DR29=] SET INVEX FOK LDH To FOLLO 
OUU1ecOl OU2or BOAO 21687 Lon BRA o<TEMPACSKE GET RIGHT BYTe OF NEW SELECTION 
OULcOs 269 3030 CMV pR39=tO08 ASCI1 "0" 
UULEN4Y UdoA 0203 bL >NEATJ B 1F INVALID ,NPUT, CHECK FOR C/R 
O0lelL Gdon 3034 CMV SRI 9=94!8 ASCII "4" 
UOlell O2oe VUE04 ; BL >NEATI anee 
GUléle Udov 3b0D NEXTJS CMY $K3952°0L8 CHECK FOR C/R 
UGlel3s Ucok VU980 UZA4S BNE <NEXTK B IF WASN'T C/Re INVALID INPUT 
OUle14 Oc7U bd57U 0003 NEXTI AND oR3s=Z2'00038 MASK OFF UNUSED BITS ; 
UClZ15 Udté bEUG 20EA STR dR3e<B1TE DRIVE NUMBER AND TEMP INDEX 
VU12Zl6o L274 9800 2l1lb?7 LDR dBRL oe<TEMPA GET MOVE 
oorave UcTo 1048 _ SUR SRL ov RIGHT JUSTIFY IT 
Ulelo 
VUlelY UeT7T LDOL oe CMV bKL»=X*OD8 C/K FORK NO CHANGE 
OUlec2U Vets 0900 O2EbL be <NEATE. 7 | , Sash 
GUlée2gl OUd7a 1D4) CMy SRLe=*ES E FOR PRINT ERRORS aS THEY OCCUR 
VULé22 27s 0900 0396 Be <MOVEE | | 
OUlce23 UeéTU 1b46 CMV Rl ea=tre F FOR FILES PcR PASS 
VULZ24 GeTE UYOO UFTA bE <MOLEF oe 2 
OUle25 Gesu Lb4g CMV SRLostl! I FOR IDENTIFACATION 
OUlLég2b Geol 0900 0145 bE <MOVE I a ; : ; ; 
UGle2T Udb3s Lb4b Ciav SRL e= OMe M FOR MOVIFY ANU PATCH ROUTINE 
UGle2s e244 0900 1745 >) a <PCrH nie 2° 22! . 
YUOlE2G Udso 1050 CMV Rl e=* Pt P FOR PRINT ERROR TABLE 
UOLe3U GeoTt OU9L0 U3bv be <MOUEP - 
OOic31l Ues9 1b53 CMV Rl y=tSe S FOR RESTART 
OUle3< UgbA 0900 U1LO BE <START | aes oa | 
YUG12¢33 UdesC ILvds% CMV SRLezeX! X FOR SUPPRESS ERROR REPURTS 
001234 O28 0900 O39A Bi <MOVEX ; . 
OO1¢235 UesrF 105A CMy aRle=tZt Z FOR BLT TEST MODE 
OUle36 be9U0 U900 U49F bi <MOLEZ oT aad —_ : 
UVULEZ37 Ue9e 1041 CMV SRLezeAt AN FOR ALL TEoTSs DRIVE N 
OUL¢é36 Uc93 ULG00 UZAC bt <MOVEAYQ ; | ; 
OU1Z39 Ud95d 144 Civ Rl ss'De DN FOK DEBUGs DRIVE N 
OULeE4U Udyo 0900 UC3C be <MOVED Be SS hes 0 cae 
VU12Z4l O298 105] Cy SRL y=tQt QN FOR QUICK ALL» DRIVE N 
QO1Z42 U299 U900 U2ZAC bE <MOVDEAQ | ey Saas 
OUle4s UZ9b 1b5¢ CMV dR o=tRE RN FOR READ OWLYs DRIVE N 
001244 U¢gyC 0900 VebO0 be <MODERW adie Saitecns 
GUlE45 29 1v57 CMV bRIo=twe WN FOR WRITE UNLYs DRIVE N 
O0lc46 Ue9F UL90U VZBU bt <MOLERW TE DR 
OUle4? UZAL ib2b © CMY DRlesteas “N FOR DELETE DRIVE N 
UUle4n Ucghe VU900 Udb4 be <MZiP DELETE 
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OUiZ4S aan ; 7 NEXTK CALL LVSEeEVSETCaMSINVL *INVALAD MODE* 
GZA4% +FbBCO V0U3 
UgA6 L380 VO00 X 
UgAs UFSU 
ere UEAY €290 
GUO1lze5u GCéAA OFBU 0237 b <NEXT NO MATCHs TRY AGAIN 
ULied] ER NRE ERNIE CES AR RER RRR ES 
oe : MODES A&W K w OK DELETE (#N) 
S 
VU1¢54 UéAC 9680 2323 MOLEAQ LAB ob1s<SEGN START OF SEG [ABLE FOR Ao & 
OU1<3> U2AE UF8U 0268 P bs <CMNNA 
£206 
GUigs7 UgbU YbuO 232F MOLERW LAb eb La eotet START OF SEW jABLE FOR Ro Ww 
GOle5u Gebse UFEO Udcbs b MINNA 
Gul<59 | | * | : | , 
YV1c6U0 Uéb4 DbBOU 20EA MZ1IP LDR $K3e<bITE GET INDEX 
peioes Ocbo YCbO 210A " Lose $B1<DXPTeS$R3 GET OLD POINTER INTO SEGN TABLE 
eO€ 
001263 OCdbs beOUO0 ZUEA CMNA LUK $K3e<BITE | GET INVEX FOR MODER, MODEA 
Coroee UcbA YFbBUO 210A n offs Bl e<DXPTeSR3 SAVE NEW PNTR TO SEQN TABLE 
<6 
O0l<66 GCdbC 9870 2030 LURK SRL 9=t=O8 SET NEW MODE {O -N wHILE we CHECKeee 
VULco7T Cebe 9A53B ADU $K1L9=$R3 . JF OTHER MOLES ARE NOT A Q K_OR Weee 
a Wee Ugur 9F30 210é r STK bK19<DXMD.3RK3 THEN ERR TAbLe WILL BE CLEAREDe ETC. 
Y1l2b6 
OUle7U UeCi 9800 ZOEA LDK doKle<blileé GET NEW URIVE NUMBER 
GUL271 .G¢Cs LOG7 | SUL $Klo7 . 
OUlETe UCe 9900 20F5 CM SK 1 s<DRIVE CHECK Oonene. CURRENT OKIVE 
UUL273 UVeCo U980 U2Cb BNE <CM BoIF RENT YNIT NOT BEING MODIFIEL 
OOle74 O2CK 4900 2161 Lil <FLAGs=2* ouol® SET FLAG CURRENT UNIT MODIFIED 
|  « G2ZCA OOO] 
OU1L¢75 * | eyes ecein, Hoe ee | 
nee : CHECK JTF PRKIUK CRROR HISTORY SHOULD BE SAVED 
[ss Pr 
Oblets ULeCb 3CFC _. CMNC LUV DRA g=H4 
OULcT9 LeCC GbKLU 2106 CMND LAb $619<DXMD+4eSRN3 _ 
UULc8U Gee 9261 LLH SK1 9 $b1 GET LEFT HALF OF "MODE" 
OGlc61 C2CF 1020 CMV SRL 9=X? 2b¢ "DASH" . 
OGle8e UebU U990 biVE _ >CMNB B IF ONE OF THE UNITS 19 NOI A "DASH" 
ah GOcbi 37Fb * bBINC SK3—9>CMND TRY NEXT UNIT 
jLed 
OULc&5 * CLEAK ERKOR TABLE AND COUNTER 
UO1< 86 * : ae 
OUL<c87 7. _ CALL 2V$FstERTBeNULLsEKLNTH (BUF s PIRN» KNG) 
UgbDe FBCO 0003 
O24 U380 V000 Xx 
G2gbo UFBU 
Gézv7? 2119 
Uc<vs cl&C 
sot ae Ucb9 e¢1l6 | See 
OULe<8& UdvVA 8700 2113 Cu <ERCT TOTAL ERROR CUUNT 
VUlc8yY UcvC 9680 2119 LAB bBle<ERTE iy | aie a ae, 
Cateoy O¢gbe_ 9F8O 217D 5 oTb $b1l9<tRTBPT -RUNNIWG POINTER THROUGH ERTB 
é 
QUlec9c UgEU wBsOU cUEA CMNB LovR SR3e<bITE GET Ve VRIVE NMBR | 
O01lE<93 CégEe 9800 elb? LUR bRLe<TEMPA | GET M An ss =" 
001294 Uetke 9F30 2102 STR $R1_9<LXMD.SR3 SAVE NE pore en 
O01c95 Ucko 8730 20UFE Cu <OXF We dR3 CLEAR aie COUNT 
GU12Z96 O2ks 38730 21bk Cu <DXKNeSK3 CLEAR RECORD COUNT Ne” 
OUle97T GeECA 1COL LUV bRle=l perry Pea tm ie 
por ooe Octb 9F3U 2106 7 STR SRL e<VAPSeH$R3 SET DRIVE PASS COUNT TO ONE 
“ 
U0130U pSee ooae 2181 NEXTF Lb <FLAGs=Z'0002! CHECK JF CR DcTECTED 
< é 
YQ1301 OG2rFO O580 Udd2d bisF <NEATC 6B IF NU CR»y GeT MORE 
OG130e Ocke 6800 2193 LUR $K39<R3ZHOLU RESTOKE UNIT sNDEX 
001303 va aa 2161 Lis <FLAGs=Z°O0001 * CHECK IF MODIFIED 
U¢cFo nore : . wen 
001304 Ock? 0504 bol >NEATG B IF CURRENTLY RUNNING MODE MODIFIED 
001305 G2Fe bvC&O0 102F Lbe $65 9<SENSB5 aoe ae 
ET UcFA 8385 JMP >b5 RETURN TO INTERRUPTING ROUTINE 
Jl- * 
V0130% * CURRENT TEST CANCELLED. CLEAR POSSIBLE VIAGNOSIIC OR ABNORMAL 
ooLoie * CONF IGUKATIUN MUDES. 
VULSILY * Ree 
OOlS11 GecFo 6000 22A9 NEXTG Iu <INOKMAL 9 <OTCONF (OUTPUT NORMAL CONFI GURAI ION) 
oa UcFU VYOUG eebb ? - 68 
OGlslé UdcFrF OTFC _ bIUF >NEATG Be Fe, 
V01313 0300 L350 LoEb LW Sb59<iINIZ INITIALIZE MTV We ETC, 
YO1314 0302 U38U Y33C LING $65 4<MARW 3 ADVANCE SEQUENCE PGOINTEKS»s ETCe 
001315 0304 9CbBO 0307 Lob SBL oe <NEXTHe SKS ath, 
ee U306 8361 ¥ JMP ob1 DO NEXT TEST IN SEQUENCE 
317 | a ox . 
OUl3lo G507 U31F NEATH UC <X1 
VO1319 0305 OU328 ie <Xe 
001326 0309 0331 DC <X3 
ON1321 G30A 0306 be <XU 
VO1L32< HH HHH HHH HK HIKE REIKI KKH HH KKK KKK HIKER KEKE KI KKH RHE HEHE EEE EERE KER KEKE 
eer: a DO TESTS» RESERVE BO EXCLUSIVELY FOR THESE LNUIS 
UU1324 
~0U1325 0306 L380 LOOF x0 LNJ $65 9<SENSE SEE IF NEW MOVE REQUESTED 
001326 30D dcCFC Luv DKZ g=H4 COUNT 4 UNITS 
GO1327 G30e& 9680 2102 | LAG $B 1 ¥<DXMD MODE TABLE 
0015286 0310 90F1 XOA LDH $Rlo+$B1 GET MOVE BYTE 
GO132y O311 Ie. CMV pK] g=—~8 IS IT A_"DASH" ? mee 
001330 O312 0984 BNE >XO B IF NOT DASH, MODE WAS SELECTEV 
00133i 0313 e7FL BINC ohare oe TRY FOR ANOTHER UNIT ie 
O0O133<¢ 0314 OUF8&8O U237 bs NEXT NOTHING SELECTED. GO TO "NEAT?" 
0U1333 GU3l6 3C00 ' XOb LDV SR3+ =0 SET JNVEX. be ces 
001334 U31? 0380 0347 LN SBS 9 <COMX CHECK MODE LIaTs+ ACTIVE REWINLs ETCe 
Opteae U319 OUF86 : 's) >Al SKIP THIS UNTT 
336 : 
001337 U31lA Y9CBO 210A LUb b61e<DXPTeSR3 B)] NOW POINTS TO SEQN TABLE 
O0133o 0310 E389 ~ : LNG $46 9*Sb1 vO THE TEST 
0013539 O310 b36U0 033C LAG 3B59<MAKw 
VOL34U ies % | 
001341 O31F 3COl X1 LUV $RZB9=) 
O0134<e U320 L380 0347 LNJ $55 9<COMX 
001343 U32e¢ OF&86 b >X2 
OULS4¢ 2 
001345 0323 9CBG 210A Lbb $619<DXPTeSR3 
0012460 0325 £389 — LIV $b69*$B) 
001347 0326 0380 033C LNJ $65 9<MARW 
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001345 eee, x : : 
V01549 Uses 3C02 ; Xe LUV bR3e=2 
“iy YOls5U U329 L380 0347 LING $B5e<COMX 
: OU135i O32b6 UFbO b >xX3 

OULs5e - * 

001553 G3eU YCBL 210A Lobo dbl e<UXPTedR3 

O0U1354 OU32t t38Y ; LNG $B6e*S$B1 

YVO1S55 OU3éeéF v3K0 U33C LNG $65 —9<MARW 

OU13560 * 

UOY1457 U331L 3€C03 | X3 LDV 9R39=3 

VO1l35u O33¢ 03860 0347 LANG $b59<COMX 

UOL359 U334 OFLU? b >XQ 

0U0136u | ae * | a 

001361 6335 G9CbU 210A Lub $b1s<UXPT edR3 

UU136<e 0337 £389 LNJ SBOe*SB1L 

001363 0338 360 033C LN $654<MARW ee 

001364 U33A OFsU U3U0b b <X0 GO TO TOF OF LOUP 

VU1L365 : KIKI KIKI KIKI KKK KIKI IKI KK KKK KKK KKK HIKE KKK IKKE KEKE HEHE KEENER 

Goroee . KESET MODE SEGUUENCE PUOINTERK IF tND OF LIST 

3 

V0O1l366 0330 9CbO 21lUA MAKW LUG eae $kK3 

UUL369 0U33r 9BCl VOOL LAb $bleoSb1 o SAF 

OULS7TU U34U BLDEY CMiN *$Bl 

ee 0341 0983 BNE >MAKWA 

( 37 * 

YUO1l1S7TS O34e YG9bBO 232cF LAw bble<SEUL STAKT UF SEG TABLE FOR VATA TESTS 

001374 U344 <Y9FBO 210A MARWA S16 $B1le<DXPT -$R3 

O0O1375 G346) 355 JhMP SbB5 RETURN 

YU1LS76 KKH IIH KH HK IH KERIKERI KIKI IIR KIKI KIER IK IIH KI HI TREE IK IK 

bOrooL : bECIDE WHETHER UK NOT TO IEST NEXT UNIT 

& 

UOlasTy 347 DF&O 0395 COMX To $65 9 <COMXB5 SAVE b> FORK KeETURN 

UO1IS8U O3449 9630 2102 LUR SK1L9<OXMDeSR3 GET MUVE 

YVO1361 O34b 104% SUK dbK1 9 PUT "MUDE" aA RIGHT BYTé 

OUlS8¢e U34C) ILdD2L CMV SRL—e=X*2D° IS IT A VASH 

VO1383 0340 U98BO U350 bNE <COMKA b IF hal A GASH» TEST De sIkKEVU 

GU1384 U34F 8355 JMP 2b5 RETUR 

001385 Aut ai, . x 

001366 U350 9C8&U COUS5 X COMXA LD SHLe<ZHISAZ+5* SAF 

OUL387 G35é AC&O CODA X LUb bb29<ZHILSAL+1LOXSAF 

UO1386 0354 b6B8O 036b LAvb $B3 9<COMXC 

ete O3560 tF60 230F SIb >b639<SAL5P 

39VU * 

UL1391i G356 CBeO UVOOD Xx LAb $64 9<ZHISAZ ; START UF [yes 

00139¢ U354 UBBO 003F X LAR S659<ZHISAL+O3*% SAF END OF IV®S 

001393 O35 8774 COMXF CL +$b64 CLEAR THE VECIOR 

001394 035v CbbDS CmMb $B4»=$65 DONE YET ? 2 

0U1395 U35Se O3FE bLE >COMAF B IF WOT DONE YET 

UUL396 U35F CbaO 230C LAd $64 9<SA15DV LVL 15 SAVE AREA. 

Sota: U361 CF8O OOOF X STb $B49<2HISAZ+15* SAF SAVE IT IN VECTOR 

396 * 

001399 0363 8C5] STS =$k GET STATUS FORK CP RUPT LVL 

OO140U0 03604 9570 VO3F AND SKRLs=X*3F! 

O01401 G36060 LDUF CMV SR1l—9=15 IS 1T 15 ? re 
oo 00140¢ GU367 U904H - bt >COnmxXC IF LVL ALREADY 15% DON?T SUSPEND 
00140353 U3ou 6670 »s0Q0F LEVXB LtV =Z%y000%415 . 
| Soreoe G36A U000 i HLT NOT S&T UP FORK A SECOND INTERRUPT 
ae a “ 

, 001406 * NOW AT LEVtlL 159 CONTINUE 

001407 : x ; 

001408 C36b YEO OU05 X COMXC OSTb pble<ZHISAZ+S*SA 

O01409 U36U AFBO YODA XK 2To SB2 9<ZHISAZL+10%$ on _ 

OV141U U36F 9830 20F6 LDK SRI SeORIVEOL $23 GET DKIVE ADDRESS ~ 

UOl4lL1l O374 GFOO Z2OFS5 oTk $R1 e<URIVE SAVE DRIVE AbyYRESS 

OUl4le U373 D380 1341 LNG $659<SETCHN SET UP CHANNEL ADDRESSES 

OU1l413 0375 9870 5830 LUK SR1e9=*XO8 ; 

0OU1414 U377 9A53 ADU SKL»=3R3 ERROR LABEL 

VOLG4l5 Oslo YG9FOO 2186 STR SRI e<LABEL] XO0~-xX3 

ULi4l6o GU3STA 8000 2164 1U <STATis<INSTwl GET FIKST STATUS worD 

. G37C QO0OO00 22CC ; 

VQOLl41l7 GUs7k O794 | BIGF >COMXD SKIP THE TEST 

OOl4ls O37F 8280 2164 Lo <STAT Ll o=Z*e0odu? RDY ? 

G381 80U0 

001419 U3%e O50 boT >COMXb Bb Ir RUYs DO IHE TEST 

00142U foce poor 21b4 Lob <STATLe=2Z*40008 ATIN ? 
36 4 

oo 0366 OQ58C : BEF >COMXL IF N/KRUY BUT NW/ATTN, DON'T LO TEST 

4ZLe ; 

OUL42s * GOT STATUS bUT ee N WAS SETe fen asy ptt : 

nee * REFORT AN cRROR AND DESELECCT DkIVE FROM FURTHEK TESTINGe 

4< % 
OVL426 0367 9870 2b04E LuUR Sklest=n? . — GET AN ASCII] "DASH 
001427 ea Poe <102 ORM = SRA GKDXMDOSER3AGSZ*FFOUY DESELECT CURRENT DRIVE: - - ~ 
v 

OU1426 GU3sbC V38U 1030 LNG $B5_<F NER DEVICE N/RDY wITH ATTN bAT SET 

001429 U3ssrE 3034 FNEROS LC "04? LABEL - 

Ooleat U38F GF8&3 b >COMXD GO ON WITH NEAT TEST 

431 * 

O0143<¢ U390 B8A8BO 0395 COMXB INC <COMXGBS+$AF~1] INC 65 a ORDcR TO po THE TEST 

U01433 0392 UC&0 0395 COMXD LUb 265 9<COMXB5 RESTORE 6&5 

eee 0394 83655 ‘ JMP $B5 RETURN 

UL4G435 

0014360 6395 UOUU COMXB5S KESV SAF 90 SAVE b2 HERE 

001437 KKH IKK KI KKK II IK HI IKI KI IK II THK TOT HHI HIER IKK TH RIT IIT KI 

Sorese : CLEAR FLAG TU RePURT ERRORS NOKMALLY 

y 

GUL440 0396 6706 21B6 MODEE CL <SUPRKES 

U01441 C398 UFb60 0237 b <NEXT 

U01L44< HH IKK IKK KIKI HK IIT I RIT KR IIT TKR HI I ITE IIIT RIT KR HH TTR IRE ERR ERR IT 

Neral: * SET FLAG TU SUPRFRKESS ERROR REPORTS 

444 * 

001445 G39A 8900 21686 MOLEX LBT <SUPRESe=Z*G0uUl? 

O39 OOG1 

Q0L446 US9D UFBO 0237 b <NEAI 

OU1L447 eee ee See ee eT eT TTS TT TT TT TTT ETE CTT CTC TTT TTC TPT CT CTCL CLL TLL CTT 

DOLELe . MOLE Ze RUN ULT CONTINUOUSLY AND CHECK RESULTS 

VOl450 U39F 8700 2106 | MOLEZ C <DXFS TOTAL PASS COUNTER 

001451 O3AL 1COA | MODEZA toy Rio=10_ ae . 

OUlL45¢e U3A2 YFOO 2107 STR SRL e<DXPS4] COUNT 10 PASScS PER REPURT 

001453 U3A4 v380 163D MODEZB LNJ $65 e<QULTKUN DO ULT 

U01454 U3A6 0380 LOOF LINN $659<SENSE DO we WANT "NexT Pee 

001455 U3Au &AK8D 2106 INC <DXFS COUNT PASS 
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001456 U3ZAA 8880 2107 DEC <DXPSe+] LOOP CUUNT 
001457 O3AQL 8980 2107 CmMzZ <UXPS41 . 
Bones U3AtK OAT76 - BAG >MOVEZB 6B Ir NUT DONE WITH pass YET 
499 
001460 : . a CALL ZVS) eLVSTCeMSULPS KEPORT PASS CUUNT 
U3AF FBCO 0003 
G3b1 L380 0000 xX 
GU363 OF BO 
. O3B4 céTr 7 eee 
001461 - eo . CALL LVS THeZVSTDeEXPS 
0365 FBCO 0003 
G37 L380 0000 X 
0369 UF&O 
US6A c1U6 - me : i 
001462 U3bu OF&U U3Al b <MOVEZA KEEP LOOPING 
O01465 HH KKH HHH IKK IK HK KEKE KKK KEE KK KIKI KEKE KKK HK KEKE EEK HERE IK EKER EKEEK 
Dots . MODE Peo PRINT SUMMARY OF FIRST TEN (10) ERRORS. 
cay : 
OU1460 O03b6D D360 1634 MODERF LUNJ $65 s<CLRMOD CLEAR 10 MODES -0 -] -2 =3 
Boles O36F 9680 2119 : LAb $B1e<ERTE START UF TAbLe 
Vl46%8 
001469 Boca Boot 2lsF MPA LbT <PFLAGs=1 SET MOVE "BP" FLAG (FOR CRR REPORTS) 
13¢. 
OOl470 O03C4 9874 . LOK Kl o+S$61 ‘ ; 
QGl47i G3C5 1900 U3Fb bES $K1 9<MPDONE Bo oIF KES!) OF [ABLE EMPTY 
eae G3Cl GFOU 2186 . OTK dRLoe<LABELI LABEL ASCII 
473 
OU147?4 USCY9Y 9871 LUR SkKlo+$b1_ _ ' . 
BOTee O3CA GFOO 218? a STR SR1—9<LAbELZ LABEL<és ASCII 
416 
GUl477 U3CC ACFL  _— Lie Sb2e+S51 re 
rae O3CD AFBO 1U7C 7 STb $62 9<FNERF ERR LOC», HEX 
J1479 
OU148U0 U3SCF 9871 LUR dDRlo+Sb1 Sa 
Ne U3bO0 YFOO 2114 7 OTK SRL e<ERDRIV DRIVE NUMBER», HEX 
Vi48< 
0U1483 OU3be 9871 | LUR SKlo+Sbl : ~ 
Sollee U3U3 9FOO 2115 m STR SR1—e<ERFILE FILE NUMBER», HEX 
146 
YUL486 O39 987) LURK ON meet ier | Aieelie 
BUTLaL U3bve 9FOO 211? . OTK $K1y<ERREC RECORU NUMBEK, HEX 
x) 
Q01489 O03bD8 bBCFl < Lob $Bb39+SB1 Psat 
ae U3U9 bBFEO 2163 ‘ 21b $639<SLDb DATA GUFFEK AVDORESS, HEX 
% 
OV1492 O35 9871 7 LDR SKlo+$B1 
Bolen G3vC GFOU 2164 . 2TR Rl s<STATIL STATUS WORD 1» HEX 
4 
UU1495 O3veb 9871 | LUK bKletr$b) ' ' 
Boras O3DF 9G9FOL 2165 " STik SKLe<STAT2Z STATUS WURD 29 HEX 
& 
noreeo : NOW GU Ye FUKTH AND PKINT THE ERKOR REPORI 
4 
GU1500 O3E1 6380 106b LIN $B5 9<FNERMP REPORT TOE EKKOK SUMMARY . 
OU150] * Ms 
OO1S0¢ O3t3 9871 . LUR eet ores \ ; 
GU1503 O3b4% YFUU 216 OTR le<TEMPA ‘di y 
GO1504 . Ml Sie CALL EVE HeZVSTDoTEMPA PRINT PASS COUNTs DECIMAL oe 
U3E6 FBCO 0GU3 
G3EB L360 UOD0O X 
U3SZEA OF&O 
U3tts d21lb7 ; ‘ . . ; 
QU1505 U3EE aie c1lgF LioF <PFLAGss2 WAS BKK LETECIED? CLR FLAG 
DOOE 
GU1506 User OU587 | but >MPo B IF NO BRK FUUNDs CONTINUE 
001507 OsFU DBBO O3F6 LAb ab39<MPB 
VO1L508 O3Fe¢ VFBO 1LUZE oT $65 9<SENSB5S KETURN HERE peer C/R AT "NEXT?" 
arate O3F4 OF60 023? ‘ b <NEAT SERVICE THE brEA 
v) 
OUlS5LL U3F6 ABO 217b MPb LAG $K2a<ERTH+ (S+2XSAF)*10 END UF BUFFCR 
VOLSle OUSFK BUDE | Cit $61 s=$62 a 
OG1513 C3F9 200 03Cl 2 . BLL <MPA LOOP wbACK FOR MORE 
YOL514 O3FbH DBEBO 0237 MPOONE LAb $659 <NEXT SET UP FOR KE TURN 
O01l515 O3FvD VF&O 1O0ZF oTb $65 9<SENSbS C/R_ SHUULUN'T GET BACK INeLINE 
UO15l6o O3FF 8385 JMP $B5 GO 10 IT 
001517 ESKER AN EWR AT HRA NERR EEN IREAE RAAT AA AH ARRER ARENA RN RRR 
GOlSls * 
OO1L319 * NEXT FOLLOWS MOVE "AN, FIRST COME THE TURN@-AKUUND AND OTHER 
BOLL oL z DIAGNOSTIC TESTS- THEN COME THE NOKMAL VATA TRANSFER TESTS. 
UOLS2¢é HR KKK KIKI KICK KKK I IK IH IH IE EK III HII KIKI KIKI IR HTK HH IT TRI HEI 
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UU269i Uboy UV360 VFA? AU LNG 2B59<LABEL 
OU<o9e Ubou 4155 UC "AUS 5 LABeL1l _ 
UU2895 UvnoC D380 13F5 Lind $65_9<bSFW BACK A FILE 
omy OO2094 Uboe vV360 13F5 LINJ $B5—9<KOFW. DITTO . 
oe cogcee Ub70 U380 139E P LING 65 9<FSFEOT FORWAKV A FIle, PAST EOT IF NECESSARY 
a UZ89b 
— UU269? UbTZ 8900 2 Li3sT <AUFLe=1 SET AU TEST FLAG 
| Ubo74 GObl or tone, 
UULZo9u ing Ceeuas CALL ZLVSERK sRANDUMs OLE GET SOME RANDUM NUMBERS 
Ub?> FBCU 0003 
Op? ?/ U360 VYVUOO x 
Ub79 UFB8O 
uUBTA 2195 
UbTp <cOF1 
OUdo99 * : . : . 
pI : NOW DETERMINE HOW TO GtET 10 RANDUM RECURD NUMbceRS (R5 = AU CNTR) 
Udy 
002902 Gb?e ICFR LUV dbRLy=-8 Le 
OUES03 Ob?v 9FOO 20EBb OTR bK1y<CNI8 CNTK FOR 8 SPACEING OPERATIONS 
UU2Z904 Ub/7F ABBU 2195 LAG bb29<KANDOM PNTR TU RANDOM TABLE 
VO2ZYO05 Ubsol vusTZ AU] LUK dK594+$02 GET A NMBR, BUMP FOR NEXI UNE 
OUZ9N00 Obséd vd7TO0 VOUF ANU pRoSs=X*re TRUNCATE TO DECIMAL 15 
OUeyO/ Obs’ BADS Linc =$R5 MAKE I! BeETwecN l-]6 DEC 
VO2ZYVG VUbsd UV230 210k DUB. dKD o<UXRWNe dK DIFFERENCE FROM CURRENT POSITION 
nee Uby/ 5&886G VUb&E ‘ DokZ BRD 9 <AU3 6 IF NECESSARY TO FORWAKU SRACE 
u 
eae : IT IS NECESSARY TG BACKSPACE TU GET THERE 
€yleae 
VUZ¥Y14s Ubsy L360 142b AU2 LNJ Sb5e<bSRw BACKSPACE A KeCORD 
VU2Z914 Uno OTFE BLING SRD _9>AUCL BACK SUME MOKc 
oe Ups UF&U UL94S : 'e) <AU)5 WE®VE ARRIVED 
ylo 
neon : IT*S NECESSARY 1G FUKWARKD SPACE TO GET THERE 
Ue9ylt 
VUECG1Y Ubse 8255 Au3 NtG =$k»5 MAKE LI NEGATIVE 
UUEZS2UG UbpsF 5900 Ub94 bEZ pRK5S 9 <AU5 TAPE ALREADY iN PUSTTION 
ULey2i Ub9i V360 1301 AU4 LIND. bbd5o<F SRW FORWARV SPACE A RECORD 
ees Ub9S SO7FE " bINC HRD yg >AUG FORWARU SPACE SOME MORE 
U 3 
VUEI24 : WE*VE AKRIVEUs PREPAKE TO KECONSTRUCT DATA AND READ [T, 
U0ES?S5 
VULZS2Z0 UbS4 YBEU 2333 AUD5 LAb bb1_9<LIST LIST OF Cabelas may TESTS 
VO2Z427 UbY6 GYB3U ZOE LUK SRL ¥<DXRNeSK3 CURKEN!T RECOKU NMbR 
ULEY2o Ob9s geal] Dr =$Ri ("LIST”" STARTS NLT SECOND KECORD) 
OUZ¥Y2Z9 Ub99 BCI] Loe $635$Bb16SK1 FORM pUTDEs fO TEST 
ete UbSA %83&3 : JMP $83 DO THE TEST 
Ca. <i 
Tee is AFTEK LOING THE KEAD PURTION OF TESTe KETURN HERE. AND CHECK MODE 
Ud933 
UVU2Z934 Ub9n bvDFBO UbA6 AU6 oTb bd »<AU6b5 atte POSSIBLE RETURN ADLRESS 
002935 Ub9D L380 OFDb LIV $B5 e<RWAU MODE? 
UU2Z936 Ub9t UFTFE ag >gel Ke, NO fee TEST» RETURN 
VU2Z937 UbAU OFB3 >AUOA W 9 ay Q 
VOZ93% UbaAlL VFTFE Nup >$ei Ag © i ate wW/NEXT REC UF AV TEST 
VUZ¥Y39 ObAZ UFb&d s) >AU6C Q, VITI 
00294 oe | * 
OUZ94L GUBAS UCb&O UOLAE AU6A L Dts db5 »<AUObS R/ws StT UP FUR RETURN 
UUZ94e UsAS 8385 a. Jink b5 RETURN TO TEST "A" [TN LINE 
pons UbA&o U00U AUOBS RESV SAF 0 RETURN ADDRES» 
& 
UOU2945 UBAT &ABO 20Eb AU6C Line <CNI 6 A/Q_s bUMP CNTw FOR g RECURDS 
VO2Z946 UBAY 8980 2UEb CMa <CNIS CHECK CNIR - 
002947 UbAb U8O00 Ubsl BAL <AUL LOOP bACK FOR NEXT RECOKV 
UUec¥94n ObAvU 8700 2UE7 CL <AUFL - RESET AU FLAGs TEST AU UVUNE 
Goece. UBAF U38U 139¢r . LINJ B65 e<FSFEOT GO AHEAD FOR wEXT FILE 
: U a ee a | ee ~~ =-=— = wee = FF FF ee ele le 
Boo oe. . AU TEST DONEs CHeCK FOR E-UeT OR END=PADSS 
C 
VO2ZY953 ae ata élle Au? LuF <EQIFLGe=l CHECK AND CLEAR EQT FLAG 
bus 
U0Z954 Ubb4 0500 UbD4 bis T <NDPS — B IF EUTs REPURT END UF FASS 
UU2Z955 Ubbo L380 OFDE Lind $5 9<KWAU MUVe? _ 
VOZ9560 OboS UFTE NUP >$=1 Re COMPARE "FALES" 
QU29Y57 Obb9 UFTF NUP >$-1 Wo DITTO 
002958 UbBbA OFS8SE b >AUs Ay VDITIO 
OUZ959 ae * = ‘ , 2 
OUZGS6U) Lbbb 9530 20FE LURK dR1 9<DXFNe SK Qs CHECK FOR i6 FILES 
O02461 Obbl’ 1011 CMv SKLle=17 l6 FILES = 17 FILE MARKS 
002962 UbbE 0900 O0bD4 bE <NDFOS KEPORT END OF PASS 
seeped UBCO OFBO UbCD : b <AUY NOT lo FILES YETs CONTINUE 
246% 
O0Z965 UbCe &980 217F AU8 CMe <FILES | 
OUZ966 ObC4 0900 UBCD ; Be <AUY ~- B IF_NU LIMITs GO To EOQT -= ~~ 
UUCY67 CpCo 9830 2OFE LDR DRL e<UXFNe SRS GET FILE COUN| 
002968 UbCs 88b) DiC =$R1 oe Pee 
U02969 UbCy 9900 21TF CMk $K1ly<FILES "FILES" REACHCD? 
bora. ObCb Ueé8bO ObbD4 ‘ bGE <NDPS B Ilr PASS 
4 
OO2ZS7Tce GbCv 9CBO 210A AUS Lbb ob 19<DXPTedK3 . 
002973 Ubtt 9BCL FFFF LAB $KleoSBLee SAF. NEXT TiMt AROUNDs REPEAT AA@AT AU 
002974 Gbbi GFBO 210A oTb $B19<DXPTe$R3 : ; 
iets Obv3 8366 JinP $B RETURN TO HANVLER 
a ] re) -_— ele lll elle ad —-_— - = - - ll ormUh -— - -— = -— fe FeO elm - ~ =~ = 
VOcYT7 * KEPORT END-OF-PASS MESSAGE 
O0E9Td * | ear 
nocoue : FIRST wRITe END=PASS KECORL ON TAPE 
< 
U0¢981 Obbs bL3680 OFA2 NDPS LNJ $659 <LABEL *. 
itae UbD6 4550 EP LC "EP? LABEL] 
2985 
UUdZ984 OUbbs 8070 VOO0 tP4 Tu =O9<OTRUPT INHIBIT INTERRUPTS 
i" OUbby QOGO 22bF 
002985 Ubbb OTFCC bIOF >EP4 
002986 * | ee 
O02ZSE? Ubbe L360 UFDE LNJ $65 9<KWAG MOD . 
VOZ988 ObDE OFEB7 b >EP] Ry WO WRITING 
002989 UbbDF UFTF NOP >$-1 W 
00cS990 OCBEO UOFTF NUP >$S-1 A 
. 00299] Siete | * oe 
U0EZG9<e Ubtl UL380 11L0 LN $b59<ONES Gs wRITE RECORD 
UUc993 Ubt3 UUFF ve X*rre DATA . 
002994 Ubke 0014 DC 20 BYTE KANGE 
002995 % 
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poeees : NOW REPOKT MODE 
(. 
00299b bee. Seat 7 EPL CALL LVS Le LVSTC oMSMODE PRINT "MODE" 
UbES FBCO 0003 
Ube? 03860 0006 X 
UbEY GFBU 
coon YBEA «2oF o | | 
VUE99G UbEB 98650 2102 LOR $R19<DXMD.S$K3 GET eo (ASCII) 
YVOZ00U CbEU U380 UFC LNJ oB59<VDTR PRINT 
0U3L01 ae os 
OUZU0¢ * PASS COUNT (UVECIMAL) 
JU3004 . CAL £VS1»MSPASS PRINT "PASS 
4 TT eer : i. é »MOPASS yr 
GUbEF FBCO 0003 
GObFl D360 00G0 x 
UsF3 OF&O 
UBF4 <c277 7 | . 
YVO3U005 UbFb 9830 2106 LUR SRL 9<DXPSeSK3 GET PASS COUN] 
OU3U06 UbkF? 9FUOO 2167 STK dRLe<TEMPA 
00300/ ee - ; CALL LVSTHeLVSTD es TEMPA PRINT PASS COUNT 
ObF9 FBCO 0003 | 
UBF L380 0000 X 
UbFU OFB8O 
OBFE 2167 


ERROK COUNT (DECIMAL) 


UbFF L380 145F LNJ SBS5e<BLANKS P 
CALL = LVSI He LVSTD9EXCT PR 


* OK * 


OCU3 U3680 O000 Xx 
OCUd OFBDO 
secede de: GCU6) 2113 . = eee 
GU3ZU1L3 . = in CALL ZVD1 »MSERK PRINT "“ERKRS" 
OCu7? FBCO 0003 
OCO9 U38b GOOD Xx 
OCOw OFB8UE 
UCOC 2239 
UU3u14 a | . 
UUZ3U15 * FILE COUNT (HEX) 
OU3Z016 ce is ead * | i? 
GOZ3017 UCOvV 9830 ZOFL — LURK eet es $K3 GET FilLE COUN) | 
OUZU18s OCUF #8&b]l : DEC =$R] FILES = FILE MARKS ~. ] 
O03SU19 UClU GFOU 21b7 OTR SKIL s<TEMPA ; 
OU3U2U _ or CALL LVSTHeTEMPA PRINT HEX File. COUNT 
UCle FbBCO 0003 
OC14 U38U 0000 Xx 
UClo UFO 
rts UC1l?7 21b7 ; ; ae . 
YUU3U2] . me Sot CALL ZVd/i eMSFILE PRINT "HEX FILE(S)..." 
UCis FbCO 0003 | 
VCIA v360 0000 Xx 
UC1lL YFSO 
cants OClb 223F 
UU302Ze ‘Se Gases * | 
UU3U2Z3 OClk UV380 1628 LNG b659<CRLE DO A LINt=FEEL ee 
Gece UC2Z0 e700 2112 ‘ CL CEOTELG CLEAR EQ! FLAY Os 
US : . 
OU3U26 * NOW REWIND AND PKEPARE TO START NEXT PADS Nee kh 
O03U27 * | seciea - Tae 
OCUSZL25 OCeéed 8000 2299 Lu <KEwINDy<OTTASK REWIND 
; . GOCe4 VOO00 22Ce2 
OU3Lcy UC26 U704 BIOT >EPZ | 
U03U3U UCEe7T L360 1030 a LING >H5_9<FNEK SHOULD HAVE brEN KEaADY FOR KEWIWD 
ene OC2y 3137 PNERI7 vbC ‘17° LABELZ 
2 . 
003033 UCéA 8730 cUFE EP2 CL <DXF Ne dKS RESET FILE COUNT | 
UC3ZU34 UCec 8730 210b Ct... <DXKNo SK3 RESET KECORL COUNT 
G65U35 UCéer Y¥AbU 2106 TNC <UXP5.9K3 INCKEMENT FASS COUNT 
OU3U30 GC3U L38U OFDb LJ $65 9<RWAW MOVES? 
UG3U37 UC32 48386 JMP $66 Ry RETUKN TO HANDLER _ . 
0G3038 UC33 UF83 db >kP 3s We CANCEL MOLL "W", ONE PASS ONLY 
OG3U349 GC34 8386 JitiP $66 Ay RETURN TO HANDLER 
O0SU4U OUC35 8386 JiMP Sb6 Q,» LDITIO 
GO304) 7 % | 
OU3Z04<e Ol30 9870 2v30 &kP3 LDK nd emer GET "NULL" MOVE 
OU3043 UC30 9A53B ADD pRl = MODIFY TO CUKKENT UNIT 
YVO3U44 UC39 9F30 2102 OTK Shi t<DxMD. $3 CANCEL MODE "wNe 
0U3045 UC3Sb 4386 JMP »b6 RETUKN TO HANULER 
ee HIKE HHH KIKI IH IH HIRI KI IK KKK IKI HK IKI HK IRIE KH HHI KIRKE KKH HEHEHE 
U3047 * 
tape : NEXT FOLLOWS THe DEBUG MOE 
y 
003050 ee er ee hee eee EO En ET ere ere Te mene eee ee eee mer me ree 
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OU3SU05L LEKKI AK KRIKKREKKKKI HH KIEKRKEKHIKIKEKIK RE K KKK KEEKRKKKHEKEREKREEKKEREKEEK 
003052 * DEBUG MUDE>. PRIUK TO CONFIGURING CURKENI CHANNEL ADDRESS» MAKE 
pees [ SURE THAT Trt INTERRUPTED UNIT 15 INITIALIZED AND IN NORMAL MOUDE> 
U54 
063055 UC3C 38070 YvU0d MOVED IU =O0s<UTRKUFI INHIBII INTERRUPTS 
ie OC3t 0006 22BF ; | 
0U3U50 UC4U0 U380 UFA2 v1 LA SBD e<LAGEL SET MAJOK ERRUR LABEL (SEE "SENSE") 
OUSU57 UC4e 4431 | Dy "Dis LABEL 1 
OU3058 GC43s b6&00 ZUEA LDR SR39<b1Tt GET INVEX 
003059 UC45 9870 ¢b30 LURK dRlyzt-o8 
UU3U6U UC47 9A53 ADU SRL eg=HK3 ADD INDEX VALUE 
Co ce. OC4s Y9F30 2102 . OTK SRI 9<DXMVeSK3 CLEAR CURRENT MODE 
UUSU6e 
663063 OC4A 8000 22A9 MOLEDA IU <NOKMAL + <OTCONF RESET CONFIGURATION ON INTERRUPTED DRive 
; UC4e 0000 22bD | 
Guecee OC4t O7FC : bluF >MOULEDA 
NY) 
COsOed . CLEAK UF ANY SCREWY CONDITION THAT MAY EXIST Iw PREYVJOUS URIVE. 
VU3U060 UL4F 980U 20F5 LDR dR1e<LRIVE 
003069 UC51i 1047 SUR SKR1lo7 
VU3UTU a . ee 
Gu3u71 * SET UP TEST MODE 
OU3U7¢2 Soo ate * eee ae | 
VUZU7T3 OCdbe B0UG 22b3 10 <TESTMD 9 <U1 CONT (SET TES! MOLE) 
OC54 O0UG 22bt ; — | - 
Gu3U74 UC56 8010 22AC 10 <LCHNOeSK1s<OTCONT (OUTPUT LOGIC. CHAN NMBR? 
UCbs OOO 226E > 
OUZU7TS UL5A 8000 22eAA LU <!NUEXs<OTCON] (SET INDEX MOVE) 
OC5SC VOOG 22be 
VU30To * | | 
Deuce : INITIALIZE OULU CHANNEL». IS DIFFERENT FUR 6UC2 AND BDC3, 
U3UTS 
VU3SUTY ct 8260 20E9 Lob <BDCFLGs=] 
 OC6U 00GL . ; ‘sa. 
a U580 OC79 ; BoF <MOVEDB B IF BUCe FIRMWARE 
UG: 
ou cons : 6bOC3 FIRMWAKi® INITIALIZE ADAPTEK AND DRKU 
U03U84 UC63 8076 9C03 LU =Z"*9CU3" s<OTCONT (LCN AAD& CNS] (038) ) 
vam ge Veer VOLO ce2bE Deed ae, | 
0U3085 Glo? s070 8883 Lu =£°3863%s<UTCUNT (ACCESS (FWCI)) 
; OCoy 0000 2cbE | eis a | 
Gu3U86 UC6o B8L7U OUG8 Lu =Z*u008t y<GTCONT (RESET DEVICE ADAPTER) 
—. GLeV =0000 gabe =: oe 
VO3Z087 UCorF 8070 2UB4 Lu aZ*2U64" 4<OTCONT (AC13) 
GC7L OOGL 22bE | . 7 _ 
OU3U084K UC73 %OTU JD6A ge) =L"(D6A%,<OTCUNT ((FwCl) 10 ADAPTER) 
UC75 OO00U 22ébt 
YU3089 * | | | _ 
EN UCT? UF8BO UCB9 r bs <MOVEDE INITIALIZE IS DONE 
U9 
aoe ee . GOUC2 FIkKMWARE® INITIACIZEe 
U 
0U3U9% UC79 8070 0008 MODEDB lu =Z°'U008* »<OTCONT (RESET DEVICE ADAPTER) 
_ Clip GOU0 22BE | eee | | 
az VU3U95 UCTD 8070 »483 lu =Z"4bB3 ty <OTCUNT (ACCESS (FwCl)) 
| : OC?7F OO00G ZébE | the 
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NUP >t-1l 

NUP >$-l 

NOP >$-1 

NUP >$-] 

NUP >$-] 

NUP >$-1 

Liv bb99<SLINSE "NEXT @" 
;: b MODEv1 RETURN 
e ROUM FUK CUNSTANTSs cICe 

KEV 190 

KLOYV 10 

Kr OV 140 

KESV 140 

KESV 149V 


KKK KKK KKH KKK HK KEKE KEK KKK KEKE KKK HK KKK HK RARE KI KAKI HK HHH EK EKER KEKE 
. WRITE A FILt MARK 


ERKOK LABEL 


MM Li >B59<LABEL MAJOR 

DM UC tome LABEL] 
LING $65 —9<WwFM WRITE ue MAKK 
LNJ SB5e<I1NSTAT GET STAT 
LNJ $b5 9<SENSE "NEXT on 
LINJ >B5e<bLUTCHK CHECK IF AT EuT 
b <MOVEUI RETURN 


HHI HII IK IIR IK HII IR III IIT TIT ITI III II TO TT IIT 
: GENEKATce A SET UF RANDUM PARAMETERS (RNGs PTRN) 


NN Lvov SKRls=) | 
TR dR19<TEMPA RANGE = 1 
CALL CVSF Re TEMPE TEMPA GET RANDOM NMoR IN TEMPS 
* ee ee | ee — ae oaerelmlmlUCeOlmlUMm,lUelC OU Ce en ee en 
* KANGE 
LUR bKls<1EMPb GET RAND DATA 
AND SRL oe=L*OTFE? LIMIT RANGE Tu l2-gy00 HEX 
AUV oRlo=]_ ; 
CMV SKLle=17 =11 HEA. 
bAG >NNA b IF ALKEADY wITHIN RANGE 
. AVY doR1L1e=17 PUT WITHIN RAWGE 
ae OTR dR] gg <KING SAVE RKANVOM kKaANGE 
* PATTIEKIN 
% 
LLH SR1lo<TEMPS GET LertT bYTE OF RAND NMbR 
~ITR ypRla<bIT KN STORE AS PATT&RN 
LING $65 e<SENSE NEXT? 
bb <MOVEDI RETURN 
KKK IH KI IK IH IK KKK IKK HII IK III IK IER IK HH HTH HK KK KKK EK HH HHH HK HHH HK HK HH KH 


: DACKSOFACE A FILet 


UU Livw $B59<LABEL 

LO UC mor LABEL 
Livy BS 9<bSFW BACKSPACE AND WALT TILL LONE 
Live $B5 9 <SENSE NEX1? 
b <MOutb1 RETURN 


KKK KKK KHIR I HIKER KIKI IKI IK RIT IIT ITH IT ITA IH AIT TH IH HHI HII EE HH IH 
. PRINT PARAMETER LAST (DRIVEs RNGs PTKNs JJPTs KKPT) ALL HEX 


pp CALL ZVSTeZVSTCoMSPARKM PRINT "PARMS" 

* benVe: rs eee -. 
LDK bK1 9 <DRIVE oe _ 
SUR SKl oz KIGHT JUSTIFY 
Sik SR1s<TEMPA pi aaes 
CaLL | OZVSMAs TEMPAs VABL CONVERT TO ASCII HEX 
CALL VSP VROL eZ PRINT DELVE NMBR 


* 
: RANGEs BYTES (Hex) 


LNJ $559<BLANKS PRINT ¢ BLANKS 

CALL ZVSHAsRNGoVRBL CONVERT 10 ASCTI HEX 

CALL ZV$leVRBL+] PRINT KANGEs REX BYTES (800 MAX) 
: PATTERN ea 

Livd $65s<BLANKS ; PRINT ¢€ BLANKS 

CALL LVSHAcZVSHLePTRNeVRBL CONVERT TO AdSCII HEX 

CALL £VET eVRoL +2 PRINT PATTERN» HEX 
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UE64 FBCU 0003 
Ot6e D380 0000 x 
Otow UFS&O 
| ESS 2 16D 
00346U Ke emma alae dn a a 
00346] : wRITe BUFFER (JJPT) 
VU346¢ . , ar: 
003463 GiroA v380 145F Ling $65 9<BLANKS PRINT ¢ BLANKS 
003466 PPA NULL ae 
003467 66S CALL LVSIHeLZVSTHLZ sJUPT+SAF RH] sbCKO 
VO0O0 A 


a 
: KEAD BUFFER (KKPT) 
GE73 V360 145F SpE hal $65 9<BLANKS PRINT ¢ BLANKS 
CALL LVSI Re LZVSTHE sKKEPT+$AF =] ebCiD 


CoSCcoceceoceecocecce 


Gt75 FCO UO003 
Gti7? 386 0000 X 
UETY OQOFS&O 
UETA 2185 
UkTb 20F<¢ 
QU3476 - Pre . 
OU3477 Ut/C D36U 1LOUF LIN ol NEXT? 
003475 Ut7e OFSB] FEBC b vl RETURN 
003479 eH eWie 6 MERWE 6 O41 A x RMR RA OA DRO Cd 2 ARERR RL RR RR 
OO3cEI . TRANSFERK CUNTENTS UF READ BUFFER TO wRITE BUFFER 
4 
GU348¢2 GkEBU 9800 219K WG LOUK $K19<RNG GET RANGE 
0U3483 Cksée 1F04 MLV Kl 9=4 MODIFY FOR CALL STATEMENI 
OC3484 Urs3 YFUO 21b7 OTR SRIS<TEMPA ae 
V03485 y aa CALL LVSMBeTEMPAsKKPT sJuPT MOVE BYTES 
YEso FBCU UOU3 
Ors?’ 360 VO00 x 
ULBY OFBO 
ULoA 2lb7 
CEsb <165 
; Ukow 2184 
U3486 Oksb D380 1LOOF LNJ 65 —9<SENSE NEXT? 
U3487 UtbF UFSL FETE B MODiEDI KE TURN 
U348e HE KKK HK IRR KERRI RRR IOI III ITO ITO I Me 
nore : READ A RECURD INTO DEBUG XEAD BUFFER (#®KKPT) 
349U 
03491 Obyl U380 GEAZ KR Livy $B5 es <LABEL 
U3492 EGS 4452 © DR be tDRe LABEL 
03493 Ub94 YCeU 2185 Lub $61 9<KKPI KEALD boUFFER 
U3494 OFYO YFSO 21b3 2lb $619<SLDb CURRENI DATA zDEEFER 
03495 UEYs YGFEUO UVEAT 2Tb teeth ease BUF ADK FORK 
U3496 OFYA YBSO VEBE LAb $b19<k 
U3497T Or9C QFEO ZlA4S oT SBT eR TRY RETKY LOC (NO RETRY) 
03495 GUE9E 9b80 1LUC2 LAB SBle<kT4 NOP j 
Seeec UFAU YFEO 21A3 ‘ oTb dbl e<KIRN RETKY KOUTINE (NOP) a 
) 5 G mie oi - 
03501 = KRA CALL = AV SF eRBUE 9X3333e9LENGTH (BUF ®s DATAs RANGE-wORUS) fs 
VEA2 FCO 0U03 Ve 
ULA4 0380 0000 x a 
CEAG UFS&O 
UrA? 1C66 
VEAS 21bF 
UEAD €189 
YU350¢ ean | * - - . 
003503 GrEAA UV380 LUbBO LAN $b 9<dkt] Musetee cy, loss . ; 
UU3504 OULAC 6ABO Z210E Stes INC <UXKNeSK3Z _ BUMP RECORD CUUNTER 
GU3505 UrAt 8168 €185 KRKis TULvD *#<KKPT 9 <LGREAD 9 <KNG 
UEbU 000 edbb 
. Gibe 0000 219t a Sank a 
UU350b LEbS O7FA = BlOF oo >RRD KEEP TRYING 
GUU3S07 Okbd 8000 c29oF RRC lo <KEADFDe<U1 TASK START 10 REAL 
phat CEb/ VOLO 22Ce So | | 
O03506 UGUkby9 GO7FC 3 6 1UF >RRC KEER TKYING 
ane UkDbDA U380 UFEC g Lind $65 9<INSTAT WAIT FUR BUSY 
3 U 
Ov3511 UrbC L360 1480 on LivJ d659<ERCK CHECK FORK EKRURS 
G0351le GEsE L386 LOGE RRD Livy $B59<SENSE | NEXT ? 
UU3513 UtcCu L386 176A LIN $659<EOTCHK CHECK LF AT EuT 
GU3514 UtECe2 OFKO ODGub b <MOVEL I KETURN 
OUSd15 KHKKKE KKK KKK IR EKA K EK IK KIKI HI KIMI KKK IKK HIKER III I 
GUnele : INPUT vOTH STATUS WORUS (MAY MODIFY PREVIOUSLY RECEIVED STATUS) 
V3d1% om ees: 
VO3> Lo D380 OFEC 2S Ling $B9e<1NSTAI GET STATUS WORDS 
UL3519 UkrCo L360 1LUOGF LNG B59<SENSE NEXT ? 
GUO0352U 6 UFBO ULDUb b <MOLELI RETURN 
UU3524 KR K KEK KR KKK KKK KERR RII III III IOI I IOI 
UUSd52< *® BACKSPACE A KECURD 
003525 oe uae a 
003524 UtCA L380 UOFAZ TT Liv B95 s<LABEL 
UGSb25 UkCC 4454 cr UT bC *DTe ABEL 4 
UU352eo UEC F360 YFEC LivJ dbo eI NOTAT GET STATUS 
UU3527 CrCrF 6280 elb4 a) <STATLs=Z'0200" 
— GEDL «= G00 
UU35é5u Ukbbe 6503 7 bboT >ITA 6 IF beO-T 
Ouss2ey Urbs L380 1426 _ LNJ $65 s<BSRW BACKSPACK AND WAIT 
OCS453U UkU5 L360 LOOF TTA LivJ $B59<SENSE NEXT ? 
CUS531 Gk? OFBO OLDS ts <MOVEUI RE TURIN 
OU353~¢ KHIR IHRE HIRI HK IKK I KIKI KKK KK I KER ITI ITO III I 
003533 * REWIND TU peO-I 
403534 . : * 
003535 UkvDY L380 UFA2 UU LiNJ B59 <LABEL 
GOU3536 GCbdo 4455 — DU re mut LABEL] 
GUS537 GiUC 8000 2299 lu <KEwlNDs<OTTASK 
Sane: Geve O0OU0 22Ce mae HA ue 
UU3530 Ubtru O7U5 bLlOT >UUA B IF OK 
003539 UrelL 380 1030 : LNG $65 9 <FNEK SHOULD HAVE BEEN RKDY FOR REWIND 
VO354U CEES 3033 FNEKO3 UC to3° LABLLeé 
OU3541 Grt+ OUFBF — b 2>UUC ABOKT 
VU354e Gkrd U360 UVFEC UUA LiNd >BSe<INSTAI GET STATUS 
UJ35435 Urk? 9800 2164 LDR dRLo<STATL | 
VU3944 Urey 9970 8200 CMR bR1les2'h200! RDYs beOwT 
UU354> Crkto OU904 be >UUn B Ir UK 


RSET mmr Tm eer fo prey eat ohye oer mia nanbidaanarudin ost dy cha cesocnnaiat habe fedeebentd Rusint 14 aged bese 
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UU3545 CUrtC V380 1030 LING >BbdS—9<FNER STAT 1 NO AFTLR REWIND 
YVO3547 Utter 30385 - FINNGEROB VC "O89 LABELe 
YVU3548 Obtr 8730 2OFE UUb CL <DXrive SR3 RESET FILE COUNTER 
GUUS549 UbFL 8730 210t CL <UXKNe SKS RESET RECORD VCOUNTER 
0U355u ULF3 UV36U 1LOOF UUC LivJ $65 9<SENSE NEXT 7 
003551 GrFdS OFBO UDOCB b <MOVEDI RETURN 
OUsb52 KKK KKK IKI KKK KKH HHI IK KKK KIKI KKH KKK KERR KKK HHA EN 
003553 * FORWARY SFACE A RECORD 
OU3554 - ee . * . 
003555 UbF7 L380 UFAZ VV LING $b59<LABEL 
VO3556 OULFY 4456 LV bC tye LABELL 
003557 UbtFaA b3e60 13C1 LNG pbd9<FOKW FORwWAKUY SPACE AND WAIT 
YU3550 ULF U3S8U 1LOOF LiNJ $O5—<SENSE NEXT ? 
003559 OFFK US60 LT6A Liv Sb5y<EOTCHK CHECK IF AT EuT 
GU3560 Utuu OFSBU ODUb b <MOVELI RE TURIN 
U0356] KK KK IKI HHI KK IK IKK KKK IK IKK KKH HK KKK KKH HK KKK K KKK KEKE KKK ERE HKREEEKKHEKKK 
nie : wK1Tek A RECURD FKOM DEBUG wkITE GUFFER (*JUPT) 
YO3 
U03%64 UFb2 D380 UFAZ2 wW LiVJ $B59<LABEL 
YV03565 OFU4 4457 — Dw DE tDwt ; LABEL 
003566 UF0DS GbBBU UF25 LAb 961 »<WwC RETRY LOCATIUN 
003567 UFO? GFB&O Z1A4 Sid $Bly<RTRY 
003566 UFUY YFoU 218b oTb bbl a<NTOT IS ALSU ino LOCATIGN 
UU3569 UFVUDB Y9bBU LOC? LAB SBle<kTS NOP RUUTL 
UU357U UFUD YFKO 21A3 oTb $Ble<KI Kis RETKY KOUTINE IS A NOP 
neta UFUF 9FBUO 20E6 " 2fo dB19<ABRN SAME FUK AOKI ROUTINE 
UsdTeé 
U03573 UFl1L w38U0 1469 LivJ $B59<ANo CHECK FOR ACTs N/bBSy 
UU3074 UF1l3 GAO 210b Lid <UXKNe SR3 BUMP RECORD CUUNTER 
GU357T5 OFld selos& 2ls&4 wWA lULD e<Jur Ty <1LOWKIT o<RNG 
OFL7 OL0OU 22ebC 
UFLY OO0O0U 219k . 
o& UFlou OTFA biuUr >WWA . KEEP FRYING | 
7 UFIC e000 e2A2 Wits Lu <wRiTeEs<UTTASS< START 10 WRITc 
OFlt UU0U 2¢eCe 
UF2U UTFC ; wv LUF >WWo KEEP TRYING on 
UFg, bD38U UFEC Lind SBboe<INSTAI WAIT FOR N( bey 8 GET STATUS 
UFZ3 D380 1480 ea LiNJ b659<ERCK CHECK FOR ER 
UFeg5 U3b8UG 1LOOF ww Liv pb5y<SENSE NEXT ? 
UFg7 U380 LT76A Liv bb5 9<EUTCHK CHECK IF AT EuT 
UF<Y UFBO ODOb bs <MOLELI RETURN 
KKK KK IKK KKH KKK KHIR KKK HK KI KKK KIKI KKK KEKE KKK KKK KKK KKH KAEKKAKKKHKEE 


: EXIT TO "NEXT 73" 


Ureb UFBU O29 XX 6 <RESIRT RETURN TU "NEAT 236 (VIA RES 
CRN RRR Ga A RE ee KKK 


* FORKWAKD SPACE A FILE 


TART) 
KHKKHKKHEK 


eouvruurreruUrUrTYoOrUr rrr errr aa trae 
KF CeonceorwrFuaonre C§WOONnOCUFURYECCO 


CoOeeceecececeecoceoecoeceoceccececce cc 
SCCCceEercececceocececececccecec €¢ 
WOW WWHWOWO We OWW WWW GWG Wh 


* 
UF2D L380 UFAZ YY Liv SBD 9 <LABEL 
Ure 4459 DY be ryt LABEL a 
UF3U U38U 1375 LNu $B5e<FSFw FORWAKVY SPACE AND WAIT 
OF3z2 L360 1OUF LNJ $15 3 <SENSE NEXT ? 
UF 34 0380 LT6A Lid $65 9 <EOTCHK CHECK LF AT EuUT 
UF3o0 OFB8U UDO b <MOvELI RETURN 
eis x RERUN nan kk OR A a 
wees : PKIWT oNiTs Fikes RECORUs REMAINING RANGE® STAIUS 1, STATUS <e 
( UF3% bLD3b60 136t Zz LNJ SK59<GETKNG | GET sear NG Sees STORE IN "KANGE" 
be mae ea CALL LVST ec VSTCaeMSOTAT PRINT " 
. GOF3A FBCO 0003 
OF3C 360 UGGU i 
UF3t UFBO 
: GF3F 2294 
OU300< ee er = — ~~ -—— ele le ef - —“— oe - - -— ll rel rll Olle ~ —-— = = - 
0036003 * UNIT 
003604 * - | | 
U03005 UF40 GFOO 2167 STR $R39<TEMPA SAVE UNIT NMBR (INDEX) 
QOU3006 CALL LVS HeLZVSTUsTEMPA UNI] 
UF42 FBCO UG03 
OF44 0380 LOO00 K 
OF46o OUF&O 
- GF47 21b7 
UUZ007 ee a ee ee ee a ee ee 
QU36008 * FILE NUMBER (HEA) 
QOU3609 . * ; 7 
003610 UF4o E830 ZOFE LU $R6 9 <DXFNe SRB GET FILE COUNI 
OO3611 OF4A F830 Z210E CDR BRT» <UXRN« SK3 GET RECORD COUNT 
GO30le UF4  b&bLOU 2167 Sul <TEMPA STOKE IN TEMPA AND TEMPb 
GO3013 Uk4e D380 145F Liv $65 ¥<bLANKS | 
OU3014 CALL eVSTHeTEMPA FILE NUMBER 
UFbu FBCU 0003 
UF52 0360 0000 x 
Of54 GF&O - 
UF55 2lb7 
U03615 eS a reat ae ie ay aa a Se ee Soe ee 
OUsolo * KECURD NUMDER (HEX) 
QU3Ze1? . * 
OU36l5 UFS5o L38U Liu $b 9<bLANKS -_ . 
003619 aaicds CaLL = ZV3THs TEMPE RECURU NUMBER 
UF5y FBCO 0003 
UF5A L380 J00U K 
OF5C OF BO | 
OF SD 2158 
003620 ee ee ee a ee ee ee ee ee ee ee ee ee 
Boe. : KANGE REMAINING FROM PREVIUUS OPERATION (HEX) 
J0€e 
603023 UFSE L360 L45F Livd $65 9<BLANKS | 
UO3So024 ae CALL ZV$ST He RANGE RANGE REMAINING 
UFe0 FBCO 0003 
OF6¢ L380 UO00 X 
OFo4 OFB&O 
OF65 ¢19L 
OU3625 | ee ee ee -— = = =e eo em =e 
003626 * STAT 1 
0U3627 * 
003626 UF6o v380 Liv $B5 9<BLANKS 
003629 | CALL LVSTHeZVETHZ es STATI STATI 
UFox FBCO 0003 
OFea 380 0000 x 
UFeC OF 8U 
7 OFov 2d21lb4 
VU36031 * STAT < 


TITLE MTUS39"REV GI 


UF6E D380 145F 
UF70 FBCU 0003 
GF7< b36L 0U00 
OF74 OF8O 

GFT 2165 

GE76 D380 LUOF 
OF78 OUF8O ObDOB 
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* 
Lig $B59<bLANKS  _ | 
CALL ZVSTHeZVSTHZsSTAT2 STAT2 
* Fe 
Lind $65 ¥<SENSE NEXT ? 
b <MOVEDI RETURN 
KKK IKI IKI KIKI IKI HII III HHH HEHEHE HIKER KH EKKKEKKEKKKKKEKKEKKKERKHKKKK 
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003039 [HHH RIKKI RI HIER KI RIKI IK IKK IIH KIKI IIH III ISTH RTA IIIT TI TTT III 
rear : INFUOT A HEA Fibe LIMIT FOR USE IN MODES A GQ RK AND W 
Oo] 
U0S04e UFTA L360 lod MODEF LINJ $659<CRLF bDU A LINE FEED 
0036043 Ur7C 898G é)]TF CMe <FILES 
GU3044 UF7E OU90& BE >MOLEFA BIF —E-O-T | . 
GU3604) CALL ZV$IHeFILES REPORT CURKEN( HEX FILE LIMILI 
UF7F FbCU UVU3 
UF&L V360 LLUO x 
UFo3 OFB8U 
| OF84 <1TF 
GU3b40 OUFbd OFS? b >MOLEFB . 7 
O036047 . ioe elt BS ae MOVEFA CALL ZVSIsMSEUT PRINT "E=O=-T" 
UFso FbCO Vv003 
UF 8&8 L360 YOOU x 
UFBA UFSO 
UFdb ¢235 ee ae ee 
UU364b . MOVEFB CALL EVEL eZVSGeMOFILE ASK "FILES 25" 
UFsoC FCO YLU3 
GFot L360 UOCO x 
GF9U UFEO 
a UFOL <23F Beant 
YVOSu04y a : . CALL ZV$ltHeFILES INPUT FILE LIMIT (HEX) 
UFGe FbCU F003 
OF94 U36G UOGU K 
UFG6 UFBG 
UFO? eLTt 5 ; 
UL305U UF9s OFBO U237 b <NEAI GO BACK 10 "NEXT P28 
GO03054 FI IH IKI III ROI III TTI III IOI TI TIO II 


TATLE MTUS3s*KEV Gt NINE TRACKs PE/NRKZI MAG: TAPE T6V (2AF) : : PAGE.» 42th i ke bs 


ee LIRR IT IIR IIR RII IIR IIIT IIR TTI I TIER IID TAIN IID IDI III IAI IIIA IID 
3053 . 
Rooce. . SUBRUUTINEDS . 

O95 , 
VU3650 4 RREREAMH RAINES RENEE REREERRRSAUAL ARTIS RR ARUSEN EER T IE RGREI IE ERED 
bootee : NON@WEXISTANT RESOURCE, TRAP 15 HANDLER 

ood 
UG3059 GLFIYA 9680 0100 THIS LAb SB1e<START RESTAKT LOCATION 
OU3Z060 GFYyC YGFC3 O00] 2Tb SB1loob3eSAF SAVE IN CURREWT Tap 
OUZ064, UFStE U38UL 1030 LJ $b5 9<FNER MISSING RESOUKCE Trap 
0030602 UFAU 3636 FNER66 bG "66? LABELZ 
OU3063 UFAL vuUG3 TT RETURN FROM TKAPs Gn TO "NEXT 23" 
003064 ARE RENG 6 1 i eRWE ERG RRL EERE One eerie es 
003665 * SET UF ERRUK REPORTING LABEL 
003060 x 7 | 
GUO3667 OFAg ODb75 ~ . LABEL LURK pROo4$B5 
OG366o0 UFAs DLEGU 2166 OTK DROg<LABELL 
QU3069Y UFAS 8385 JmMP ob5 RETURN 
VU367U Pere ee ereere hacer ere KHHKKKHK EKER KKK KEKKKEKHK HEHE KEKIEKREKKEKEKRAKKEEREE 
noocus : HANDLE KTC KUPT AND CALI6BKATE CLOCK (AT LEVEL 9) 

o7¢ 
Q0O03073 OUFAd OUUS RTICEC KT CF ; = STOP THE CLOCK 
OG3074% GFAT C370 FClS Div bK4—9e=1000 _ . 

OU3075 GrFAy CFOU UOFCS oT RS y <SYNCHC TIME FOR 1 MitLIScecnnn 

QU3076 UFAB QbBU G142 LAB SBle<KESUME 

OG3677 GrFAv 9FbO 230F STb $619<SALSP PREPARE FOR puer eee 

‘OU36076 OUFAF 8E70 BO00F LEVXG LEV =Z*syOU0t+15 SUSPEND TO LEvEL 15 fate 933 
003679 GFbiL 0000 HLT b Bnet SET UF FOR SECONL INTERKUPT 
GU3080 OFbe OFFF B >$e1 

GO3084 RKEKKKKKKKEKR EER KEK KKK EK KKK HARK KKK IKKE ARKH KH KEK KKK KH KKEERERKKHEHRK KEKE 
Goaces * CALIOKATE THe CrU FOR ONE SECUND . 

683 
GU36084 OFub3 6754 SYNCH CL =$RK4 LOOPS FOR 1 Sic 
G03085 OFbo4e UG0G RTCNB RICHI ; i STAKT THe CLOCK 
YVU36086 UkbS 9900 000 x SYNCHA CM R1s+<ZHRTCC SYNCHRONIZE THE Cinck TICKS 
GO3667 OFbr QSU0G UFbd be <SYiNCHA WAIT FOR FIRSI TICK 
ae OFpy ICFF r LbV SRle=—] IN CASE RTC VUESN'T RUPT 

685 
OUZ69U UFbA e2Ck7 SYNCHB Luv. ata al 
OU3Z091 UFUe 276U UFbD BANC LONG NOP 
nena UFoU 47560 UFBA : BLING She. eSYNCHE COUNT LOUPS/ScC (/ms) 

U03093 
Gasees : IF DOING INITIAL CALIBRATION, SHOULD RUPT OUT UF LOOP TIMEC. 

6 
003096 OFbBF CbOO LFC4S LUK SK4 9 <SYNCHC en OF LOGPo/MS 
UU3097 UFCL 1780 OFBA bINC $R19<SYNCHE eee UF MSECS 
OU3Z09% UFC3 6385 wb %B5 RETURN 
GUS099 a * 

VUZ3/O0U0 CFC4& GOU0 SYNCHC KESV 140 NEG NMBR TG Ke-INI tT FOR 1 MSEC 
UG3704 KHKKEKKKKKKKKRKEKE RHE KKK KIRK KH KH HK ERK RK HEIKKI KKK HK KKH KKK EKER KKKKEKNK 
TENE . TIMEOUT FORK NW MILLISECONDS 
3 
UUZTO04 UFCD Y¥875 TIME LU dR] o+$b5 GET NMGR OF MotCS 
003/05 UFCo 825] | NEG SKA 
YVOZ706 UFC? C800 LEGS LURK gR4 ¥<SYNCHC oF f UP FOR FIST MSEC eon 
OUS7TO7 UFCY UFBG UFBA b <SYnCHu TIMEOUT ‘e 
GU3706 JORG OI III IG III IT III IGE { 
ete : TYFE QUT ASCIL CONTENTS OF k1 Nyy 
Os710 = 
UYs711 UFCKB DFBO OFLA VOTR 2Tb 2b59<VDTRbS 
UO3S7T1le UFCD GFUG OFDS OTR SR1ly<VOTRKA 
GO3713 7 CALL £VSTeVOTRA 
UECF FCO 003 
VFOUL D380 YVOO00 Xx 
VkWs OF BU 
ante: Urbe OFDS | 
O03714 OFL5S DbLC&O UFDA LUb eb5e<VDTRBS5 
GUUS/15 OFLY 8385 JMP gb5 RETURN 
VO3sTlo Steet * | | 
Gus71? GFDse 040 VOTRA kESV 190 
UU3llo UFLO 4424 VC "SS? 
VO3Z7I1LG UFbA - 0OOU VUTRBES kKisy SAF 90 
OU372U JOG G ICO O IIIS IIIT UII III TEI IIa TI Ig aI I ITI ISI BIE 
OO3721 *® VETERKMINE LF MOVE Re we A OR & 
OU37T22 * 
QO3723 * LNG $65 e<RWAU 
G03724 * "MR" KE TURN 
003/25 * "wh KETUKN 
GU3T26 * "A" KETURKN 
GO3727 * "Q" Ke TURN 
VO3 72» ee We oo niet wi eee 
UU31259 Urbs 9830 2102 RWAG LUK SRL 9<VXMDe dK3 GET MULE 
OU3730 OFUUD &75¢ ; CL SRE INDEX FOR RETURN 
UO373) OFb& LU4e SUK kl ¢ ; RIGHT JUSTIFY 
OG3(3< OUFUrF 9970 UUdS2 CM okKle=xtoZe ASCII] "Rk" 
UU3733 CrFki O90A bt >KWAUZL 
VO37T34 UFke bAbLe, __ Linc =HKE 
OuU373> GFks 9970 0057 Ciits dbRLe=Xt5S7! ASCII "w" 
VO3/36 UFr> US506 oo >RWAUS 
GU3737 GUFbtko sAbe | Linc =$Reé ; 
OU3l36 GFE? 93970 0041 Chik SKLo=xX'418 ASCII "A" 
003739 GrFEY U90¢ be >RWAWE . 
UU374U UFEA BADE ENG =$KO | MUST BE "Qu 
QO3741 OFte® 663A KWAGZ SMF bb5edK2 RETURN 
003742 EAH R EHR AKEM EERE RHE ARK KEHAN RR RUNE ABET 2 RN ERROR 
VU3745 * GET Twu STATUS wORDS 
UU3744 | | ae a at Peseta ae Cesc teenies Gi ee. & 
OU3/45 UFktC 8000 ¢15 INSTAT 10 - <STAT?Y?s<INSTWe GET STATUS WOrRbd 2 
; UFEE OOOO 22éCb | | 
OU3146 UrFFU UTFC BLUFF >ITNOTAT nities 2 a . as 
OU3S7T47T GFFL 9000 elb4 {STATL Lu <STALLo<INSTWi GET STATUS wGrbd 1 
sae OFF3 Q000 22CCc eee 
U0374_ OFFD O?7FC b1UF ei oTAts 
OO3749 UFFo 8385 Jhb 65 RETURN 
003754 Ee OEE ee eee TEE T CETTE TCC PALS CED TE ETT e Ee ee EET ET ETE eT Te Ten T TT 
OG3751 * GENERATE RANUOM ADDRESS AsOVE ZValLR BUS LESS ThAN Mxad 
OU3(5¢ * (lbe LiLAVE KOOM FOR 2048+256 BYTES) 
ieee RETUKN WITH KANLOM ADDRESS IN bl, 
3552 
UUZ/(55 UFR? ULFBO {UGE GRNADK 2Ib bd s<GRN6S : 
UU3/56 UFFY YGCBU 2194 noes Livis Bl e<RANADR GFT OLD KANDOM ADURFSS 
U03(57 UFFD 9bCL 0737 OKINA LAb bbls$b1.1547 ADD A PRIME NUMBER 
UU3755 UFFU 9SL&L YVOOU XK Cp SOL REZVSLE 
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GU315¥Y UFFF O27C BL >GRivA B IF 100 SMALL 
VUZ1OU LuU0U YLbU 2ZL1BA Cb $B1s<MXAD . ; 
OU3/61 1lvbuUe U207 bL > GRC Bb IF UK 
OU316¢ “ie | = 
VU3763 1003 9bClL FUOU GRNG LAb oblebsb1.-4096 START UVER 
003764 1005 9¥9DsuU VUOO x CMb 961 s<ZVSLR | 
UU3/65 LUG? O37C bG >GRw B TF STILL TOU LARGE 
Ea LUUH OFFS bs >GRWA STAKT AGAIN 
ULZ7TO8 LULY GFO 2194 GkINC 2To db 19<KANADK SAVE NEw RANDUM ALDRESS 
OU3769 1LUUpD LUC&U LOOE LDbs $B59<GRNBS ; ; 
oye LUUU 8385 : Jhb $65 RETURN WITH WuMGER IN bl ' 
UVU3i7éE LOUe GObU GENBS kKESV SAF 90 
OUST73 HHH HK IK KEKE IH HHH IKK KH II KE HIKE HHH KEIR KIKI KIKI KH HH IIR KI EK HEEK 
pbaits * CHECK LF UPERATURK WISHES TU INTERVENE 
U37TTS 
GO3776 1UUF DLEKO LOZE SENSE STb 965 e<SENSb5 SAVE bd FOR keTU 
Ou377/ Uli pFOU 2193 STR K39<R3HOLD SAVE "UNIT® hss ‘EAR RETURN FROM "NEXT" 
OU3t7e Pa CALL  <£VSoKK CHECK THE CONSOLE 
1U13 FoFG 0Q0] 
lU1> v3buU YUOO 5 oe 
OU377T5 LU? UCBO LOZF LUb 659<SENSB5 RETURN Bee ontG FOR TNeLINE RETURN 
OUZ?8U LUly 6980 GOOD Cidd <Z2VyoKF ChECK THE CONSULE 
meee lUlo 0913 ‘ be >SEnSb 6 IF NO BREAK » RETURN IN@LINE 
(4 
0U3783 lULL YO8U 2166 LDH dR1s<LABELL | : ; 
OU3784 1LlOle 1b44 CMV dbRly='be ASCII "b" | 
UU3785 Lulr G90L bi > SENSA MODE "D%_s RESTART 
003786 * 
U03/87 ludv Lesu v237 LAy $65e<NEXT - Bees titan sete 
003/86 ee sree 21&r Lisr <kFLAGs=1 CHECK IF MOVE "PY" anDb CLR FLAG 
Udc4 UV 
Bua GE 10é<> U5&9 2 bok >Stw5ts b TO NEXT IF wOT "pe 
) U 
OU3791 tone tas 216F Lisl <PFLAGs=¢ SET BKK=VETECIEU FI AG 
Zo < 
OU379E Luddy vere LO2F LDb $65 e<SENSD : 
Gas ee LUco UF&3 2 b >SENSD RETURN [NeLINce BRK LATER ON 
3194 , 
O03795 lUEC UbbU UEe2ZY SENSA LAg $65 9<RESTRT MODE "b's RESTART 
eee LUct 6385 SENS JMbr 265 RETURIV SOMEWHLRKE. 
VOZ7I9% LUeF GO00U SENSES KESY DAF 90 HOLD b> HEKE 
0O31GY HEKKHEKHKEIKKKKRIKRI KR IK HIKER KIRK IKI KIKI HHH KKK KHAKI HEE KKERERIEREHKEEN 
ea - EKRUK REPORTING SUBROUTINE 
Us501 
UU380e. LUZv Gu7d © FNER LUK bK1o¢$55 GET MINOR LAbeL 
U03S4u03 1031 Y9FOU 2187 >TkK Kl y<LAbtl2 
003004 1033 UFb&G LOAA oTb b6b5—9<FNERbOS 
UU3805 1035 aApCdS FFFD LAs oB2 9 S65 e—-2-SAF ADDRESS OF "Lay FNER® 
OU3606 1037 AFBU 1LO7C a STt 62 9<FNERF SAVE FOR Rep eed 
003607 10349 b6ABO 2113 RPRI Liv <ERCT TALLY THE 
003600 1036 pFOO 2114 OTR $K39<ERDRIV_ SAVE URI VES NMR» HF xX 
003809 1l03v 9%3U 2UFE LUK RL» <UXFNe$R3 | . 
ae UUZ610 1U3F 9FOU 2115 STK pRIy<ERFILE SAVE FILE NMbke HEX 
i UUZo11 1U4i GBBU 210E LUR dbRL oe <DXKNe SK3 
| GCO3vle 1443 9FOU é117 STR dR1L os <ERREC SAVE KECORD Neibke HEX 
: VO361l3 1uU4d 9800 2113 LUR SKLe<ERCT 
nee UU3b14 1lUu4/  LUGA CMV bkls=10 . - 
of ee 1043 UAUU 1068 ‘ bAY <FNCRA b IF TABLE FULL 
slo 
OU3%617 * SAVE ERRKUR FAKAMETERS FOR MULE "Pp" 
OU3ola a a 
OU3Sel9 luGA 9CBU 2Z17U Lid S519e<ERTbET 
OUG3b2u % 
UU3821 LU4 9800 2186 LUK $RLe<LABELL + 
Coes lU4k QGF71 “ STR Rl s4sol LABELL»® ASCII 
j3023 
G03824 1l04F 9800 2187 LUR R19 <LABELZ & 
OU3025 105i GFT] OTK $R19+d61 LABELZ» ASCII 
O03u26 * ; 
aa L052 AFFl . olb d62 9461 LOCATIONs HEX 
U2u 
peeoe? 1053 bF71L P STR $R39+3$61 DRIVE NUMBER» HEX 
UUG3Za3U 
UU3531 1054 983u 20FE Luk SR1o<DXFENSSR3B ee ee ; 
HET lubo GFT7L : OTR bRlo+$bl FILE NUMBEKs HEX 
3833 
003034 1057 9830 210E LURK dR1L 9 <OXRNG$R3B 
ieee 1U59 SFT . STK R19 +$b61 RECURL NUMBEK, HEX 
636 
YVO3837° LOSA BCBO 2163 Lbs $63 5<Stbo ~ — = 
poles LU5C BFF F oT bb 3—9+Sb1 DATA bUFFER» HEX 
3635 
UO364U lUdSvV YOU 2164 LOK SR1e<STATI ene 
ae LU5F GFT] 2 STR bRle+$bd1 STATUS WURD 1», HEX 
b4< 
YU3043 Llbev 9800 21bd LUK kie<STAT2 — ao ac 
Bosca lU6c =YFT7) , STR $R1 9 +$6) STATUS WORL 2,5 HEX 
VO3% 
003640 i063 96830 2106 LDR R19<UXPSe$R3 Pate Dea , 
eres LV6D GFT) . STR Rl o+S61 PASS COUNTs LcCIMAl 
Us04s . 
Goo lUo6) = GFRO 217d H STb Sb1e<ERTBPT SAVE POINTER rOR NExT ERROR 
re) 
UUS651 ®* KREPOKT ERRUK UNLESS SUPPRESSED 
O0305¢ * . 
QU3853 1068 wZ8bO 21lbe FNERA Lb <SUPRESs=1 
; LU6A O0L0O]L mt eh : st Asie . 
peeeee AUon U50U0 1LUADS 2 BBT <FNERC B IF SUPPRESSebD, IF., RETUKN 
JSS 
Diy eae : THIS 15 ALSU THe ENTRY POINT FUR MODE "Ph" 
Uso 
GQ305s5 |iUbuU DFU LOAA FNERMP STB plata a saa HOLD b> FOR_ke TURN . 
OU3859 fo eit 21138 Lisl <ERKFLGo CHECK "FIRST cRROR® FIAG 
9) 
GU3866 lU07e 0507 bbT >FNEKB b IF AN ERROK ALREANY REPORTED 
O0S064 ue _— CALL LVSTeZVSTCeMSAEAD (ERROR HEADING) 
1073 FRCG 0003 
4075 U380 0000 Xx 
1077 = OFB8U 
L078 <lFA 
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REPORT ERROR VCLABEL ann LOCATION 
RT ORIVE 


REPORT RECORD 

PRINT TwO BLAWKS 
REPORT STATUS WORD 1 
REPORT STATUS WURD 9 


REPORT FILE 


(SAF) 
LVSIHeLZVSTHZe SLDB+3AFRK 1 sDCbS (REPUKT DATA BUFFER LOCATION) 


2VST Me LZVSTHZ oe STATI 
EVSTHeLVETHL STAT? 


ZVSTHeERFILE 
£V$SiHeERKEC 
$659<BLANKS 


CALL 
CALL 
CALL 
CALL 
CALL 


FNERE 


NINE TRACK PE/NRZ1 MAG TAPE TéV 
K 


TITLE MIUS3e*REV Gt 


003467 
0U306b8 
GCO3n74 
003675 


i 
} 
+ 


*K *K *K + & 8 t * * 
*K *« * x x 
* * x L) L) ( t * x 
x *K * * * 
* > * * 5 ‘ ' U * * 
* a * *K * * 
* - * mx * Q ( A i] x* *x 
* *K S x * * 
x a * [a 4 * ‘ a ‘ t 5 * 
* ad x xX * * * XL 
x a. * td * ‘ ‘ ‘ { * * wt 
x * x * *« whe hd 
* I> x« Lad * ¢ 4 ‘ ‘ * * i. 
* xXx KD N x * x a 
* OF KZ m * ixwize t * * 3] 
* Cle Kee — * uw YX x * a & x xX 
* XY *O AL * tire § * * IMNY WY WwW 
rx uw 2K <q lu * oO ke * *K heme 
= wT COxW pee * 4 * Zens ' * * <tr 2e 2 
oe Luk Lk XY xy xO * a Sa x * NaxyzZwe 2a 
o oc x x O kik * ix im $ * * YY O- O - O 
2 * <Y¥<* Dd NY cad oe = =f * * WweiO a oO a 
od ox ABOVUK2 x rd * mx 1Ntz ' * * ¥Zz a oO 
< tx —~OK ~ J nwt * >» 2 us 4y +X * 3 Ix = = 2] 
we) * OX IK > AS * fei denw Yin Ser 3 * mIYorwd O wt D Wy 
za =k a «KJ XL * x J OX 4 * LYZz2z“= 2a we 
= “KX NA 2a +*D - ~~ D * Past rin x Iw xx * ae 50 Sl el ae x 
>* ~~] FR UO KK x xrxect x =z D2 & Qo hk ax* * YO ee Xe ao 
Xx bm KE = Ze KZ Qa -FOt «x pot Zti~ aBiti~ ax* * www xO VY Da J = 
> Lid 3K ad DL LK oe eit x — —-s =X < x tx * £ 9 bho 98 DO 9D <x 
Lh xx ue De XK a OY K rD IT in im * * we Ze OWY a XY 
x > *re i 2 a — 3d = 3 Z* * Im D & a 
4 Ox m~ rOOKW ss Ss >~X*K py +rOoim Yin fo ~K Aa ef ODD>- §}-§ &—- & x 
A oh} K <x Zim kK Oo Ot XD* Zz xz > x 2* * au YOY x XY X me) 
itd >x« uid me) sa oe —_ bri KK tat arg) re IW xk Ox eR Se Soe Re KF O OO — 
<= <x _4 OOD * js Iti k oa 3° 2 uw DO Ad OK Z¥ Wii Dis ul DO oO inde 
i ak 4 Uv aed i x <toOrxrx*« Mmzirair xyin~ ix x ~* DNGNINAY YX KC ft a 
* * x *« 
* *x 9 * | t f t * * 
x 2 *2Z *K * * 
a § Ke *K ! ’ ! ' * * 
* xD * * % 
* UL xD * t § ¢ ' * * 
* * x *K * 
4 , a. 4 * E t t ' * ® 
* O * * x *K 
Kx x * 1 i a ' * x 
SN xx xD * *x 2K ft 
at D x wu Zz xz * t t a) Nn Pw a) * * 5a] xo 
rep 4 * zx *—- az = * DFS SSEOD DSESZzD * * Zz BA 2 > Ze VY 
Zuid Kx We KD Lo * t ‘ TOXEYIWM toxrxyexYXs * * NYINGNAOAYOYOYAY wl 
ae Pad xk DY KEL Vue * ANY be bh AVI Sime *x * Be OZDIID-De-DVOe =X 
Sis. x= tOvyeKy 19 Fe *K { § bev Ow ux PY DOwyY x «x ALALYAN-ALYAYATAZ = 
Vv O*eO IIUNVKY KY ttvuvit x VVVVVV Oo VVvVVVV Ox * +Vtvevvtvevevtv v 
oe C4 wien idee © # ume ¥ eee ew. kL * t i feeeenrenee eftnreeee x * Cnr ere ee ere eee oe o ad 
DAD WK DD Ge ARNE KD tet etetir i K O DD DMO GL LAU NK tt ttt tt trtetrtttetN 
BOD <ekZ OYKYDvKeE CY YYAYO*K® NO POIDIDMVODDD05D CIDDoODDdO <*KHN OF*KD CLCVODDODDODANDAODDOO oO 
AAA Ak VVAAGK AAAAVVAK i A A AABAARA A AARAAAA AK AKY AAAAAAAAAAARAARAA A 
* Kx x 2 t t t Kz xD 
x > x > *x K—-4 x J 
Kx Km x rm it t ' { Kk * id 
=> Kr x xX x D > >*x D xx 
VOW «Kd PXDVAKA PXOX 2* DBD §#21210999002 "NI'ODB9BDA Mx*KD Ax YXYxYYDaAnDAnDDDAADAIOD Oo 
2D 2K YX JAIR--Zzx*« aeSaeJISk £ EF £ RPZ2ZZZZD=E 12 FP ZZZDE wKY SKE Dear oer ae De Ar Ake FE 
+14 Xx PISA EDEQ UN UNI ID* MADEDAEANASMI4U4ID KY IMdsdtsTD YK 3% an 09 Sa 99 Oe op Lvs Em (70 Dee ve Ee tee ee te 2 
Kim xD x > xe * 
Nok uw * x FY f t f ' *X * re 
WO Dx Ki x wy WK O Km 
xve Yk HK uid Kx it t ' ol Oa*x*D MkKY VU 
‘dod odd Je al KA em x x N WwW WwW NO OxD EK 1} 
Zz =* yy * ‘abd * br tr te i te ho K O* ss 
Ki KK KOK *K KY KKKKKOKE KS KUKX KK K KOK KK = * 
uw rN MOS N mtN SADADS Yo uA SD wt MN MM + O D JD 
ot et tot we Eine INN US ANNYIS *¢ an ep BV < KH uw oO + 
OD oOo One a> “ot ITTMOND Ot trMoO aot tN ae et DS st 
rae som NENDONENIA NEOONENEN : tt mt tt ot —d It NN NS] NN NO ON 
oO. 2 OOoDIDD DIIODdIA 0 MN DIBADIDION DB IPVIBIION Oo 2) MNIOINDNOOININIOININD 3 
DDD O DOLD OD oh, Dit. QOD D D DOSDDOD DO ANH DODOVDD OO pe) SPOM DE DOLDLEDLDAD D 
AAD OS DDAP AO tPAHDOOD Do VD DDBDNHB3DND9 D DADSADDO O er RAARDPAARABARBAARAD 3 
ASD Lf QALONS I~ntsuddD —4~ N MAY POADAYW D —-HNMYDD SY 2 LLANSA™ POIDALONA HA 
xrtzt << £9205 QDoDDDY PF Y~P IIIJIAIYD DB 2DN99033 3 a) DD wd ed a 
O25 D> DIOIDSD DDIIDDDS5 3S DD DVOIDIDSBSIND FD 3DdID3BIN590 9 o SDIIIIAD IDI ABDFDFD CF 
mt mt me mad cma mond, pend roan ree at ad ht eh at ade bd et eed ed OE Ht — AA HN Ret tet et tert ot 
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LU <SCKDY 9 <OT CONT (SET CHAN RDY) 


UU4s25 L5UF 8000 22bl ; 
bE L «6000 22bE oieon Ae eatin hee 
UV04526 15t3 8000 22b4 lu <wALTLPe<OTCONT (BRANCH TO wAiT LOOP) 
lobed GOOU é2bE | oe a “ : ae koe 
004627 Lot? 8000 22B0 lu <NOT ESTs <OTCUNT (GET GUT OF TUST MODE) 
15t9 0006 cebe 
UU4G28 | x ey ee | 
004629 Lloty 6055 TURNE  1v — s$ROe<INWAIT (XFER VATA TU ReHe BYTE OF R5) 
hoeC O000O 2ecr 
OU4630 idki O7FD bIOF >TUK 
YVU463i LloeF D7bE OTH SKS eSB le+SR1 PUT DAIA IN bUFFER 
O0463< LoFU BADE Linc =$Re BUMP CNTR here 
004533 15Fl A9OO el1G9E CMR $K2_9<KNG COMPARE TO KANGE WRITTEN 
aves L5F3 G200 L5bb Bi <TURND B JF NOT DONE, GET MORE 
1435 
OU4o36 LlbFd DC8U L0G $65 e<TURNED 
UG4637 15F7 8385 JMP $B5 
C0483u * 
0048349 LSF& U000 TURNES KESY 
004640 JG OI IG IG ISI I I IA GIR IE 
vate : COMPAKE WKAPPED BACK DATA = DATA SENT 
Moe 
U04643 15tY LFSO 160E COMPAR STb $65 9<CMPKbD5 ae 
004544 L5Fb vU360 136E LIN $B59<GETKNG -  TNPUT KANGE KULMAINDER 
004645 15FU O380 loeb LNJ SBSs<INIZ INITIALIZE 
004b40 LdokF 8980 219D CMz <RKANGE CHECK LT 
004547 loeGi C9UG bi >CMPRA __ B IF OK, Sb =u. 
UU404b lobe 6380 1030 7 LNJ $B59<FNER RANGE KEMAINUER SB = QO 
004049 1604 3039 : FNEROGY DC *098 LABEL < 
004550 evs GbbG L7EO CMPRA LAb $61 9<WwRUF 
GU4o5L Lov? ABBG 1C66 LAG bb2 9 <KBUF : 
Ul04o5é 1609 D360 123F LIV $65e<]5B COMFAKE bYTES 
0044653 lode UCbO 160k LOB bH5 9<CMPRDS 
OU4554 LloduU 0385 JMP - $65 
0048655 
004656 edt UOC CMPRBS KESV bAF 40 
V0O4657 JE IGG IGG ISI II GIGI RI I II I IGG GIGI TUE I EH 
poeoes : FILL A BUFFER WiTH BYTES JF INCKREMENTING VDATAs 
v5y 
VU406U * $61 = BUFFER 
OG4661 * $R4 = RANGE ae 
O04s6< * $RT = STARTING DATA=bYTEDS 
00463 a nice et . 
004864 eae eee 2lAd INCBFR SAVE <SAVELs=d*7F7F® 
6 
004565 Llole C8OO 219b LUR $R49<KNG . ae 
004466 lel C370 L002 DIV $R49=2 - BYTES ==> WORVS 
GU4567 Lolo FFT INCBA STR dR79+$B 
O04664u Lol? FAT0O 0202 AUD KT 9=X*02028 
Q004b69 lolly O6bA bCF >INGb 
V04s/U LolA #8907 CMa =$R7 
O04671 leolb 0984 BNE >INCb 
O0467~Z lo6lcC Fe7O FFOO LuR SRT s=Z°*FFOUF 
O04573 Llole OFBS | ob >INLo 
OU4374 Llolrk F9TG O10L INCBB CMR pR79=X*01018 
OU4s75 Loel O98¢ Bc > INCBC , a 
OU04s7?6 Llboege ICO) ee 1°) KT —9= . re 4 
004877 logs 4773 INCBC bBUDEC SR4e>x>INCbA ee 
OU4s74 1624 8FBO 21A5 RSTR  <SAVELS=Z°7F7F9 : er 
i logo 7ETE 
U04679 led? 6385 SMP $65 
O0488uU JOG H UII TE ITER HHH KHIR KEK KKK KIKI KH IKKE HEE HEHEHE 
Sole. : bO A CARRIAGE ReTURN/LINE FEED 
UC4bBbe 
004683 logs DF&OU 33 CRLF 2Tb $B59<CRLFEBS ice ot 
004884 oe, CALL EVS1eLVSTC NULL (CRLF) 
L6ogA FoKCU 0003 
locC 360 0000 K 
le2gk OFBY a 
lock <18C < , = 
004685 Llo3v bLC8O 1633 LUb $B59<CRLFGS _ 
VO4886 Llo3eg 8365 JME $B5 RETURN 
OU4o587 : se 
004688 1633 VU00U CRLFES krSv vAF aU | 
QU488Y HH KEK HK KKH RK KKK HK KIKI KKK IK IRE HHI KIKI IKK HE KKH KKK HERA EERE KEE RKERIEK 
004890 * CLEAK MODES TO -0 -1 =-2 =3 
UVN4s9l | | oa * 
00469¢ 1634 9870 2b30 CLRMOD LK oRly=%-08 
UVU4893 1lo3o eCFC LiV $R29s—4 on 
004594 Lost GFEG 2106 CLREMA STR eee eae STOKE MOVE 
VU0459> 16039 BAL] TNC s$K1 
OU459o0 Llo3A 2760 1637 BINC SK29<CLEMA 
OU4597 1630 8385 ? JMP “$B5 : RETURN - 
OG459u Ree ee eee eRe Ee ee er eee Tees eh OEE rer ee Ten Pre mre Ter rer rrr ore 
G04699 ®* RUN GLT ANU CHECK THE RESULTS. 
00490U be Sie : 2, 
004901 1le63D OLFKU L6EA ULTRUN STt $B59<QLIbd | ~ 
U0490e 163F 9800 2186 LOK SRL e<LABEL]L GET CUKRENT LabeELl 
004903 1641 9Y9FOO 2]1bBs ofr gRly<TEMPB SAVe 11 
004404 1643 L380 UFA2 LNJ $b5_<LABEL 
004905 1645 514C€ UL bC "QL? LABEL1 
004906 e646 38753 — a =$K3 . DRIVE (PORT) =0 
004907 1o6o4/ 9C&0 g18¢ pd $6) e<NULL 
004900 1649 Y9FE&O 21b3 oTb $Bls<SLUb CLEAR ERROR PARAMETERS 
004909 Lets 8700 2164 CL <STAT1 
OO491lU 164d 8700 2l1bd5 CL <STaT2 : | 
UO491L lo4F 8700 2191 CL <GQLIFLG WILL StT AFTER FIRST RUN OF QLT 
OO491e 1651 8700 2UF5 CL <ORIVE START WITH DRAVE ZERO 
pole 1653 v380 1341 : LINJ $B59<SETCHN CONFIGURE CHANNEL CONSTANTS 
914 
Berets ®* SET UP FOR mMISSANG KESQURCE TRAP 
OU049lo = * . 
004917 leds 9660 2311 LAb $b19<TSAL. oe | , | aan 
U04¥lo 1657 GF&O 2311 216 $b19<TSAL wE DON'T WANT ANY TRAP FULL INTERRUPTS 
OU4919 1659 GF&O 0000 X oT $Blo<ZHNTSA a 
004926 1655 9b8O 16Ed LAB $B19<GQLTTH TRAP HANDLER 
cece. lesv) 9F&O 0000 “xX n STB $B1e<ZHTHIS TRAP VECTOR 
922 
004923 * KUN ULT (One TIrt ONLY) 
004924 . . * 
GOU492> loedF 8980 2191 QLTAA Cid Sol ES Bars, Se 
004926 1661 0980 1668 bNNE TC B IF GtT HAS ALREADY RUN 
004927 lees 8000 22Ab QLTA Iu <FRLBDCs<OTCONT RUN QLT». TRE 10 Q@LTL VIA QLTTH IF NAK 


suse rmitihoninals ecbwinincecocamlunairinda bar elidel leita iene i nia LR Jelena bb edt ane 
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lood U0OU eebe 
UL4y2s5 lool UTFC blUF >ULIA 
- QU492y4 * , 
ia UaddU- Looe oan 2191 WLTC —oLbT <ULIFLos=l QLT HAS RUN» oET FLAG 
, 660A U 
OU4931 lb6ou ae. ZOEY Lio <pDCFLGe=l] CHECK WHICH FuRmWARE LOAU 
loov vO0] 
OU493< ILlboc U5bb bo] >GLTeE B IF "oepc3" 
UU4493>5 xy ee 
GU4934 * "BDCE" FIKMwAREs GET GLTIe 
UU4¥35 * eaetes ; ; 5 
UG4930 loorF 3980 LOCA bNEZ PRAe9<ULTL B IF NOT DkIVe ZERG. JEes LONE 
QU4937 loll 605] WLTD lu =oKle<INGLT2 GET wil 
lo72 0000 22c7 / 
UU493u 1674 U7FUL blUF aot 
V04939 loTd 1045 2UK pK RIGHT JUSTIFY 
OU494U LloeTo QFOUL 2192 STR Ski S<GLTI SAVe 11 
O0494i love UFDBY bs >QLIr CONTINUE 
OUL494< * o 
V04944 * "BOC3" FIRKMWAKEs GeT QLTI 
UU4944 * 
G044945 loely 805] GLTt Lu =$Rl9<INQLT3 GET UL 
lofA OULO 22Ces ; 
U04945 Let UTFLD b1OF >GLI : 
UL4947 lol 9570 YOFF AND dR1 EZ" U0F CLEAR LEFT BYTE 
O04945 Llo/vr Y9FOO 2192 OTK bkis<uLTl SAVE II 
O0494y * 
Doeeey : NOW CHECK wh T KeSULTS.e FIRST CHECK MOC. 
O0495e 1losl 9570 QOUF ULTF ANL SRLe=2*U0UF * ($R STILL COWTAINS QLTd) 
OL4953 loess 9970 OUUF CK BRi 9 as OOOF®* 
0044954 168d OU9U6 bk GLTG 6 IF _ MUC LOOKS OK 
L64955 leso W360 1030 _ LN 3b5 s<FNER QLT FAILED, Bus OR mDC NG 
OU495eu Lows 5432 FNEKT2 UL "Te LABEL2 
GOnceL losy UFb6O LOCA " bs <uLiL TRY NEXT CHANNEL 
455% 
OU495y * NOW CHECK bITS FUR ALAPTEX< PORTS 0-3 
06496 - . * 
UL4y¥61 Less Y8OU 2192 ULTG LUK areal 7 
U0496< losuv 100s ; SUL oR1» LEFT JUSTIFY 
004563 lost Y9FOUL 2167 OTK SKI S<TEMPA SAVE ULT FOR TESTING 
OU4 764 log 8752 CL =$Ke USE AS INDEX 10 FOUR PORTS 
UU4965 Logl 8700 217k CL <FAIL WILL StT IF A PORT FATLED 
ULU4966 1693 Ys8TO 5030 LUiK bKLle=A*RO!? PORT ZtRU LABcL2 
Hae logs 9FOO 1LO69E ‘ oIk dR1is<FNERPO RESET LABEL2 
U496b 
VL496S9 * CHECK "QLTi" FOR ALL PORTS 
OU4y TU x . - 
ODO4yTlL lod? B2AG 21b7 WLTH Li <TEMPA.SR2 GET QL_i BIT 
OL4y9Te ILlegy U5U6 ; bol aGLTJ B If _ POR] UK 
0U4973 LeYyA BABO 21TE Inc <FA\ LOG THt FAILURE 
UL4574 logC UuU3s6U 1030 Ling Sb5e<FNER ADAPTER PORT PaICeD THE OLT 
YU049TS loeye 503bu FNERPO DC. ‘Po? LABEL 2 
OL4y97To 1loe9F BAbDzZ GLTJ Te =$Re SET FOR NEXT rvORT 
; OU4977 LeAU 8A8BO 169E INC <FNEKFO SET LABEL2 
- _ OU49Ts5 LleAg ebu3 CMV $KZ9=3 | - 
VO4¥979 LeAs U3F4 ble >GLTH B IF NOT DONE YET 
QU498G loAe 8980 ZITE CmaZ <FAAL CHECK FOR FAILURES 
: nae leoAo G900 Lé6CA ‘ BE <QLTL B IF ALL PORTS OK 
498¢ 
004933 * NOWs JF "BUC3"—s KEPORT RESULTS GF "OQLTU" 
004984 * 
004985 loAu o28G Z2U0E9 Lo <bBUCFELGo=1 
loAA OOO] ‘ re 
UV4466 LloAdn USb60 LOCA boF <GLTL B IF wbCee DOWE 
004987 LloeAvD 9800 21860 LOR SRLoe<FIKM CHECK FIRMWARL REV 
0044985 LeAF 1021 | CMV BRL y=X#21¢ REV 21 
GU4989 Lovu UZ0U Lb6CA BL <GLITL 6B IF EARLIER |JHAN #2) 
UVO499U lovgd 8051 _. QLTK 10 =$Kle<INULTJ GET "WlTJ" 
leb3s 0006 22C9 . 
UU4991 lob> OTFL bIOF >QLITK 
U0499e lobo 104% SUR R196. RIGHT JUSTIFY 
004993 lob? Y9T0 LOFF CMR SRL y=LEQOFF® 
004994 lony Og9ll be >ULIL . 6b IF a ERROK 
QU4995 lobaA 9FOO 2167 STR $RL>o<TEMPA . SAVE 11 : 
004996 oe CALL ZLVSMASTEMPAsVRbL CONVERT CONTEWTS To ascll 
loot FCO 0003 
lobc L380 0000 x 
locu UF&O 
lecl 21b7 
boCe 3 2lbb a _ 7 
OU4997T 16C5 9800 ZglbBv LUK Rl e<VRBL42 GET ASCII (LAvEL2) 
G04598 1605 “9FLO 16CY¥ 7 STR SKL 9 <FNERGL SAVE_AS LAbEL ate 
004599 loc? vV3bG 1030 oe LIN $B59<FNER QLT FAILED» ScE HEADER FOR DETAILS 
Ae lecy vuCOE PNERGL RESV 10 SPACE FOR LAb 
U 
O0500c * SET UP FORK WEXT CHANNEL (ORIVE) 
GU5U03 _ * 
YO05004 loecA sADZ |. GLTL INC =$R3 
QU5L005 leCv 9830 Z0Fo LD SRL o9<DRIVEO* S$X3 GET CHANNEL AvDRESS 
QU5000 lecv Y9FOU 20F5 STR $Rle<URIVE A Cae ; 
OUSUOT LocF v380 1341 LNJ $B59<SETCHN CONFIGURE ADDKESSES 
OU5U06 lebl 3003 ;: CMV $R39=3 _ 
tava lob2 0300 165F , ble <GLIAA LOOP bACK IF wOT Lone YET 
Ulu 
ate ; TEST DONEs RESTURE TRAP HANDLER AND RETURN 
Uovle 
005U13 lobe s96u 2191 CMZ <GLIFLG : 
UV5L14 lobe 0984 BNE >QLIM 6 iF GLT WAS R 
GO05ul5 lob?’ U38U 1030 — . LN B95 9<FNER QLT NEVER ee RUN» GOT NAK*ED 
OOSUL6 lovy 5430 FNERTO uC ‘TO LABEL2 
OU5ul7 lobA YBBO OFIA QGLTM LAb SBlo<THL5 NORMAL TRAP HANDLER FOReece 
OUSUlo lovC Y9FBO O00U x OTB Bl e<ZHTIHI15 eeeMISSING RSOVYURCE eh AP 
QUSUL1Y lobe 9600 21b8 LUK SRL »<TEMPE GET ORIGINAL LABEL 
OUSU2U lokU YFOO 2186 STR SK 1 »<LABEL1 RESTORE IT 
UVI02Z1 lotde ULUC8U LOEA LUB $65 9<QLTB5 RETURN AUDRESS 
OUSue¢ loe4 8365 P JMP $B5 RETURN 
ues 
neeoue : TRAP HANDLER FORK MISSING RESOURCES IN TEST "QLIRUN®, 
VUd5U26, 1 B80 16CA QLTTH LAb 2Bls<QLTL CONTINUATION ADDRESS 
GO5U27 lok? GFbO 2317 2TB S619<1TSA1LP 
OUd5U2s OU3 RTT RETURN 
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. DO BOC INITIALIcE~o 


LIZ STb $659e<1NIZB5 
lu <INZBOCe<OTCONT INITIALIZE ANu RUN QLT 

ee BLOF >INIS aay 

INIZA lu <TEMPA s<JNRUPT CHECK JF MDC 4S ACCESSIBLE 
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